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Prefacio 


Para un simple autor, resulta difícil mantenerse al 
día en el tema de los microordenadores. En 1985 escri- 
bí un libro dirigido a los propietarios del Sinclair 
ZX80 y me encontré con que a su publicación ya se 
anunciaba un nuevo producto Sinclair: el ZX81. El ZX80 
era una máquina increíble, pero le dejaba a uno pen- 
sando: "Si hiciese ésto o esto otro...". Ahora, casi 
todas esas insuficiencias han sido cubiertas por el 
72X81, que puede hacer casi todo y además por menos di- 
nero. 


La acogida dispensada a nuestro primer libro fue lo 
suficientemente buena como para animarnos a escribir 
otro sobre el ZX81.-* Dado que el BASIC del ZX81 incor- 
poraba muchas características nuevas, resultaba evi- 
dente que la mayor parte del libro tendría que ser es- 
crita de nuevo. No obstante, hemos utilizado el mismo 
esquema y nos hemos basado en las tres mismas hipóte- 
sis acerca de los lectores o lectoras del libro: 


1 Es un recién llegado a la programación de orde- 
nadores (si tiene alguna experiencia podrá sal- 
tarse algunos de los capítulos iniciales). 


2 Tiene conectado ante sí un microordenador con- 
creto: el Sinclair ZX8l. 


3 Desea aprender a utilizar todas las instruccio- 
nes del BASI6 ZX81 a través de un curso estruc- 
turado y de intensidad creciente. 


X PREFACIO 


Usted no puede "leer" un libro como éste. Todo lo 
que obtenga de él será el resultado de la interacción 
de tres factores: Usted, este libro y el ZX81l. Si en 
alguna ocasión se sorprende pensando: "¿Qué pasaría 
si...?¡Por lo que más quiera, pruébelo!. Desde luego 
no estropeará el ZX81 y seguramente aprenderá algo. 


Ahora quiero expresar mi agradecimiento en primer 
lugar a Betty Clare, por su perfecto mecanografiado de 
mi difícil manuscrito. A Peter Chapman por sus útiles 
ideas y a mi familia,- por su paciencia. Finalmente, a 
Clive Sinclair por prestarme el hardware otra vez. Es 
una maquina pequeña y maravillosa, con una, hay que 
admitirlo, memoria reducida (para eso está la expan- 
sión a l1l6K RAM), perfecta para principiantes y capaz 
de hacer un buen papel ante máquinas mucho más caras. 


¡Deseo a todos que lo pasen bien programando!. 


R.N. 
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Lista de programas 


Rectángulos aleatorios (1K) 
Espiral cuadrangular (1K) 
Columnas aleatorias (1K) 
Estadística de ventas (1K) 
Media móvil (1K) 
Múltiplos (1K) 
Descomposición en factores (1K) 
Cambio de base (1K) 
Dibujos 
y su almacenamiento en tablas (16K) 


. Toros y vacas (1K) 

. Dado electrónico (1K) 

. Velocidad de reacción (1K) 
. Caja negra (16K) 

. Guía telefónica (16K) 
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¿Qué hacen 
los ordenadores? 


Este es un capítulo esencialmente filosófico. Si 
usted está impaciente por empezar, puede saltárselo 
ahora y leerlo mas tarde. 


Máquinas que controlan otras maquinas 


En muchos aspectos el hombre es incapaz de competir 
con otros habitantes del planeta. Si ha llegado a do- 
minar la Tierra ha sido gracias a su cerebro y al modo 
en que lo ha utilizado, al idear herramientas que no 
sólo le ahorran trabajo sino que le permiten hacer co- 
sas que sin ellas serían inconcebibles. 


En algún momento de la Prehistoria, el hombre co- 
menzó a utilizar su cuchillo de piedra para hacer 
muescas en un palo. Desde entonces dispuso de dos ti- 
pos de herramientas: 


(1) Aquellas que ayudan a sus músculos, haciendo 
trabajo mecánico. 


(2) Aquellas otras que ayudan a su cerebro, calcu- 
lando y memorizando. 


Afortunadamente el hombre supo combinar ambos tipos 
de instrumentos, empleando las herramientas de calculo 
para controlar las meramente mecanicas, haciendo posi- 
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bles sus mayores progresos. Esto ha venido sucediendo 
a lo largo de un dilatado período; los ejemplos si- 
guientes lo demuestran: 


Galgas sencillas para verificar que las flechas te- 
nían la longitud y el diámetro requeridos. 


Tornos que permiten la ejecución de complicados 
trabajos sobre metales por personas relativamente 
inexpertas. 


Robots controlados electrónicamente para el montaje 
de automóviles en serie con un mínimo de interven- 
cion humana. 


Por supuesto ha sido la Electrónica con su conocido 
"chip de silicona" la que ha extendido tan ampliamente 
el control automatico de máquinas. Además nos ha traí- 
do algunos problemas sociales que tendrán que ser re- 
sueltos, pero esto es ya otra historia. 


Máquinas de calcular 'puras' 


Dado que este grupo incluye las máquinas de jugar a 
marcianitos, me ha parecido necesario poner la palabra 
"puras' entre comillas. Al hablar de ellas me refiero 
a aquellas máquinas de calcular que no se utilizan pa- 
ra controlar directamente otras máquinas. Hace ya 
tiempo que las venimos utilizando para auxiliarnos en 
Contabilidad, en investigación, e incluso para diver- 
tirnos. Aquí, el chip de silicona ha supuesto también 
una verdadera revolución, al posibilitar la reducción 
de tamaños y precios hasta el punto que podemos com- 
prar una calculadora de bolsillo con el dinero que 
llevamos habitualmente encima o recibir un microorde- 
nador como regalo de cumpleaños. 


Especializados y no especializados 


Hay que distinguir dos tipos diferentes de calcula- 
doras electrónicas: 
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(1) Aquellas que están especializadas, es decir, 
que fueron construidas con un conjunto de ins- 
trucciones en su interior para que realicen un 
trabajo concreto, como jugar al ajedrez o al 
mastermind, por ejemplo. 


(2) Las que no están especializadas, es decir, las 
que están preparadas para recibir de nosotros 
instrucciones para hacer toda clase de traba- 
jos, incluso jugar al ajedrez o al mastermind 
(por ejemplo el ZX81). 


No obstante, incluso estos últimos poseen algún ti- 
po de especialización. Sin ir más lejos, el ZX81 dis- 
pone en su interior de un juego de instrucciones para 
que comprenda un determinado lenguaje de programación: 
el BASIC. 


Hardware y Software 


En el mundillo de los ordenadores se utiliza un ar- 
got muy amplio, que facilita la comunicación entre los 
iniciados pero que constituye una barrera para el res- 
to de personas. Nosotros usaremos el mínimo indispen- 
sable y además hemos incluido un glosario al final del 
libro. 


Por "Hardware" entendemos todas las partes físicas 
del ordenador: el /X81, el televisor, la impresora, el 
cassettes eta: 


Llamamos '"Software" a los programas e instrucciones 
que hacen que el ordenador pueda trabajar: el manual 
de instrucciones del ZX81, los programas permanentes 
que contiene y los programas que usted escriba. 


Hemos avanzado desde lo general a lo particular. 
Vamos a ver ahora como podemos comunicarnos con el or- 
denador. 
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Hablemos con 
los ordenadores 


El lenguaje del ordenador 


Los humanos tenemos diez dedos. Por eso nos hemos 
acostumbrado a contar utilizando un sistema decimal 
basado en los dígitos que van de O a 9. Sin embargo, 
los ordenadores trabajan con números binarios. Un dí- 
gito binario (en adelante lo llamaremos 'bit') única- 
mente puede tener los valores 0 o 1, y eso es todo lo 
que el ordenador es capaz de llegar a distinguir. 


Podemos escribir programas utilizando números bina- 
rios (en los primeros ordenadores había que hacerlo 
así), pero para los humanos los números binarios son 
difíciles de reconocer y manejar. Un método más prác- 
tico es escribir los programas en un lenguaje de bajo 
nivel, utilizando un código-máquina en números hexade- 
cimales (en base 16), que son fácilmente convertibles 
en binarios. Los programas en código máquina son rápi- 
dos de ejecutar y económicos en la ocupación de memo- 
ria, pero no son adecuados para principiantes. La ma- 
yoría de usuarios de un ordenador se comunican con él 
en un lenguaje de alto nivel, basado en los números 
decimales y en un conjunto de palabras fácilmente re- 
conocibles. He aquí algunos de los lenguajes de alto 
nivel más comunes: 
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FORTRAN FORmula TRANslation. Ideado para usarlo en 
Ciencias e Ingeniería. 


COBOL COmmercial Business Oriented Language. Pa- 
ra aplicaciones comerciales y administra- 
tivas principalmente. 


BASIC Beginners All-purpose Symbolic Instruction 
Code. Concebido para principiantes y usos 
generales. 


De vez en cuando aparece un lenguaje nuevo que pre- 
tende tener algunas ventajas. Hoy por hoy, el BASIC es 
el lenguaje más ampliamente usado en la actual genera- 
ción de microordenadores. 


El ordenador por sí solo es incapaz de comprender 
estos lenguajes de alto nivel, por lo que se le dota 
de programas para traducirlos a números binarios vía 
código-máquina. 


La memoria del ordenador 


La memoria de un ordenador es algo así como un pa- 
nel con un gran número de celdillas, cada una de las 
cuales contiene un número binario compuesto de 8 bits 
(a este número en adelante le llamaremos byte). La ca- 
pacidad de la memoria se expresa en unas unidades lla- 
madas. "K". Un K es igual a 1024 bytes. En un ordenador 
como el /X81 hay dos tipos de memoria: 


Memoria de sólo lectura (ROM) 


Contiene el programa necesario para hacer trabajar 
al ordenador y para traducir las instrucciones BASIC a 
un código binario. La ROM es permanente y no se borra 
cuando se desconecta el ordenador. El /X81 dispone de 
una ROM de 8K. 


Memoria de acceso aleatorio (RAM) 


Guarda todos los datos y programas que usted intro- 
duzca. No es permanente, por lo que si usted desconec- 
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ta el 7X81, aunque sólo sea un instante, el contenido 
de la RAM se borra. El ZX81l tiene una RAM de 1K, que 
puede convertirse en 16K aplicándole un accesorio de 
ampliación de memoria. 


Entradas y salidas 


El ZX81 tiene un teclado de estructura similar al 
de una máquina de escribir para que podamos introducir 
datos e instrucciones. Para ver qué es lo que estamos 
introduciendo y para que el ZX81 nos muestre el resul - 
tado de lo que hace, utilizamos un televisor ordinario 
sintonizado en UHF. 


Si queremos imprimir un programa o un resultado, 
emplearemos una impresora. El ZX81 utiliza un juego de 
caracteres no standard, por lo que la única impresora 
que puede usarse es la suya propia. 


Almacenamiento permanente 


Hemos visto que si se desconecta el /X81 el conte- 
nido de la RAM se borra, perdiéndose datos y programas 
que quizá nos costó horas escribir. Aún en el caso de 
que los tengamos impresos, nos veremos obligados a te- 
clearlos de nuevo. Necesitamos una memoria permanente 
para guardar programas y datos todo el tiempo que que- 
ramos. Para esto el /X81 utiliza un cassette corrien- 
te, con el que programas y datos se graban en una cin- 
ta y pueden guardarse indefinidamente, bastando volver 
a Ccargarlos en el /X8l cuando deseemos emplearlos de 
nuevo. 


Echemos una ojeada al futuro 


Vamos .-a mirar en la bola de cristal para hacer una 
lista de características que desearíamos que tuvieran 
los ordenadores personales en el futuro: 


(1) 


(2) 


(3) 


(4) 


(5) 


(6) 


(7) 


ZX81 


Mayor estandarización, de tal modo que los pro- 
gramas sean mas intercambiables y los ordenado- 
res capaces de comunicarse entre sí. 


Comunicación con el ordenador de viva voz, tan- 
to para la entrada como para la salida. 


Salida impresa barata, preferiblemente en forma 
de maquina de escribir que actue tambien como 
impresora. 


Memoria barata, ilimitada y permanente. 


Salida por pantalla en color y de alta defini- 
ción, de calidad similar a la de la TV. 


Una amplia gama de software para la empresa, el 
hogar, la enseñanza y el ocio. 


Posibilidad de conectar con ordenadores grandes 
a través de las. redes telefónica o de TV, para 
acceder a una información virtualmente ilimita- 
da sobre cualquier tema. 
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Programación en BASIC 


El BASIC es uno de los lenguajes de alto nivel más 
ampliamente utilizados, en especial por la actual ge- 
neración de microordenadores. Existen diferentes ver- 
siones del BASIC, de la misma manera que hay distintos 
dialectos del castellano. ¡Pero no hay que desani- 
marse!. En todas las versiones del BASIC se reconoce 
fácilmente el tronco común que las origino (el BASIC 
fue desarrollado en el Dartmouth College, New Hamps- 
hire, USA) y cuando se ha aprendido una de ellas se 
puede pasar fácilmente a otra en un ordenador distin- 
to. El BASIC en 8K ROM del Sinclair ZX81 es una ver- 
sión bastante completa, que tiene pocas característi- 
cas no standard y que por muchas razones es excelente 
para los principiantes. 


El primer programa 


Vamos a emplear un ejemplo simpático para hacer 
nuestros primeros pinitos en programación. ¿Recuerdan 
el episodio del Aprendiz de Brujo en la película Fan- 
tasía, de Walt Disney?. Es uno de mis favoritos. En él 
Mickey Mouse es el aprendiz de un brujo que le ha en- 
cargado un trabajo aburrido: Llenar un gran tanque con 
agua de la fuente. Como Mickey es un chico listo, de- 
cide programar una escoba para que haga su trabajo 
mientras él duerme la siesta. 
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Cuando se escribe un programa, el orden de las ins- 
trucciones es muy importante; por eso se las numera. 
El primer intento de Mickey podría haber sido así: 


1 Coge un cubo y ve a la fuente. 
2 Llena el cubo con agua. 
3 Lleva el cubo al tanque. 


4 Vacía el cubo en el tanque. 


Hasta ahora todo va bien. La escoba ha vaciado un 
cubo de agua en el tanque. Mickey podría repetir las 
mismas instrucciones una y otra vez, numerándolas con 
3, 6, 7, 8, 9, 10, 11, 12, etc. Pero no. Ha leido el 
capítulo 12 del libro mágico y todo lo que hace es 
añadir una sola instrucción: 


>.G0: 70.1 (ve a la instrucción 1) 


Con esto ha creado un bucle. La escoba sigue el 
programa con toda exactitud y va y viene alegremente 
llenando, transportando y vaciando cubos. Mientras 
tanto Mickey duerme 


XX XA XA XX 


hasta que al cabo de un rato se despierta sobre- 
saltado con el agua hasta las rodillas. Es fácil adi- 
vinar lo ocurrido: ¡Olvidó decirle a la escoba cuando 
tenía que parar!. Mickey, preso del pánico, rompe la 
escoba en dieciseis trozos, pero cada uno de ellos se 
levanta y se pone a transportar cubos. Por suerte el 
mago regresa justo a tiempo. El conoce bien el arte de 
programar escobas y sabe que todo bucle debe contener 
un test de salida; de lo contrario el bucle se ejecu- 
taria una y otra vez indefinidamente. Este paso tan 
importante siempre contiene la palabra 'IF' y nosotros 
lo conocemos como salto condicional. 


El programa definitivo, con su instrucción IF y nu- 
meración nueva queda así: 


Y 0 910 FEF UY NN EH 
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Coge un cubo y ve a la fuente. 

Llena el cubo con agua. 

Lleva el cubo al tanque. 

Vacía el cubo en el tanque. 

Si (IF) el tanque está lleno, vete a 1 (GO TO 1). 
Avisa que el tanque está lleno. 


Para. 


La instrucción IF tiene que estar situada dentro 
del bucle, de tal manera que cada vez que la escoba lo 
ejecute compruebe si el tanque está o no lleno y actúe 
en consecuencia. 


Bueno, todo esto no es gran cosa, pero nos ha ser- 
vido para señalar cuatro puntos que cobraran toda su 
importancia cuando empecemos a programar de verdad: 


(1) 


(2) 


(3) 


(4) 


Un programa BASIC está formado por una serie de 


instrucciones. 


Todas las instrucciones están numeradas, por lo 
que el ordenador puede ejecutarlas en el orden 
establecido. 


Se puede hacer que el ordenador ejecute una 
parte del programa muchas veces utilizando una 
instrucción GO TO. A esto lo llamamos bucle. 


Un bucle debe contener una instrucción denomi- 
nada salto condicional, que detiene el ordena- 
dor o lo envia fuera del bucle cuando se cumple 
determinada condición. La palabra mágica que 
identifica esta instrucción es IF. 
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El Hardware 


Antes de conectar el ordenador, conviene que lea 
usted el capítulo 1 del manual de instrucciones. Las 
tres partes principales del equipo son el ZX81 propia- 
mente dicho, la unidad de alimentación y un televisor 
sintonizado en UHF (mejor si es en blanco y negro). El 
7X81 puede trabajar perfectamente sin pantalla, pero 
usted necesita comunicarse con él. Monte las tres uni- 
dades tal como se describe en el manual. Conecte a la 
red eléctrica y entonces gire el botón de sintonía del 
televisor hasta que en la pantalla aparezca la letra K 
en un cuadrado negro; a esto le llamaremos cursor K. 


El teclado del ZX81 


Merece la pena esforzarse un poco para dominar el 
teclado del ZX81. Ha sido diseñado cuidadosamente para 
que cada tecla haga el máximo número de cosas posible. 
Mediante el teclado puede hacerse aparecer en la pan- 
talla lo siguiente: 


(1) El conjunto de palabras clave 


Se trata de las palabras que aparecen impresas en 
blanco encima de las teclas que corresponden a las le- 
tras. Son instrucciones que indican al ZX81 lo que de- 
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be hacer. Cuando el cursor está en pantalla, si pre- 
sionamos una tecla de letra aparecerá la palabra clave 
que corresponda. Hagamos la prueba: Presionamos la te- 
cla Y e inmediatamente aparece la palabra RETURN y el 
cursor cambia de [K] a [L]. Probablemente usted se estará 
preguntando cómo se puede elegir entre la letra o la 
palabra clave correspondientes a la tecla que se pul - 
sa. La respuesta es simple: ¡Usted no puede!. Es el 
7X81 el que sabe cuando se precisa una palabra clave o 
una letra, hace la elección correcta y la indica en 
pantalla mediante el cursor apropiado. 


Para facilitar su localización en el teclado, mu- 
chas palabras clave han sido situadas sobre su letra 
inicial o cerca de ella. En este libro, igual que en 
el manual de instrucciones, todas aquellas palabras 
que se obtienen con una sola pulsación de una letra 
están impresas en negritas. Por ejemplo: 


PRINT ABS TO 


(2) El alfabeto 


Usted puede escribir en la pantalla cualquier letra 
(o espacio, o punto) pulsando la tecla correspondiente 
mientras vea el cursor lU]. Pruébelo y observe que el 
cursor se va moviendo por delante de lo que usted ha 
escrito. El próximo carácter que teclee aparecerá 
exactamente en la posición que ahora ocupa el cursor. 


(3) El conjunto de números 

Pueden teclearse igual que las letras, con la sal- 
vedad de que el cursor en pantalla puede ser |kK| o tam- 
bién [L). No cambian el cursor de Ki a [.. Procure no con- 
fundir el cero, Q, con la letra 0. Cuide también las 
confusiones entre el número 1 y la letra 1. 


(4) Un conjunto de caracteres diversos 


Si mantiene pulsada la tecla SHIFT (en la parte in- 
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ferior izquierda del teclado) y toca casi cualquier 
tecla de letra o número, puede imprimir una de una co- 
lección de palabras, signos de puntuación y símbolos 
matemáticos, que figuran en rojo en la parte superior 
de cada tecla. Las excepciones son SHIFT 1 y SHIFT 5 a 
Y, que no imprimen nada en la pantalla. Luego veremos 
para qué sirven. 


Cinco de estas palabras (STOP, LPRINT, SLOW, FAST, 
LLIST) son palabras clave que hay que usar con el 
cursor KK]. El resto se emplean. solo con el cursor U.. 


(5) Un conjunto de funciones 


Aparecen impresas en blanco bajo cada tecla de le- 
tra. Mantenga pulsada SHIFT con el cursor visible y 
oprima la tecla FUNCTION/NEWLINE, situada a la dere- 
cha. Verá que el cursor cambia a [F]. Si ahora pulsa 
una tecla de letra (excepto V), aparecerá la función 
correspondiente en pantalla. Las funciones suelen uti- 
lizarse de una en una; por tanto, el cursor vuelve au- 
tomáticamente a [L]. 


(6) Un conjunto de caracteres gráficos 


Pulse la tecla GRAPHICS (SHIFT 9) con en panta- 
lla y verá cómo éste cambia a (que permanecerá has- 
ta que toque GRAPHICS otra vez). Ahora puede experi- 
mentar toda una serie de efectos especiales. 


Toque cualquier tecla de letra o número y obtendrá 
su impresión inversa (es decir, blanco sobre negro), 
útil para dar énfasis. Mantenga presionada SHIFT y 
pulse una de las 20 teclas de la izquierda; en panta- 
lla aparecerá uno de los signos gráficos negros, blan- 
cos y grises, que usaremos luego para dibujar y hacer 
gráficos. La tecla SHIFT con cualquier otra permite 
obtener la imagen inversa del carácter superior co- 
rrespondiente. 


Sabemos ya cómo obtener en pantalla cualquier ca- 
racter; por tanto podemos proseguir con la programa- 
cion. Lo primero que debemos hacer es borrar la panta- 
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lla. Para esto lo más rápido es pulsar EDIT (SHIFT 1), 
que limpia la pantalla y deja el cursor KK]. Igual pode- 
mos hacerlo desenchufando un momento, pero recuerde 
que así se borran también todos los datos y programas 
introducidos en el ZX81. ¡Es el último recurso!. 


En este capítulo hemos aprendido ... 


A instalar el ZxX81 


Todos los conjuntos de caracteres a que podemos 
acceder desde el teclado. 
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El primer programa 


Borremos los programas anteriores 


Antes de introducir un nuevo programa en el ZX81 
hay que borrar los anteriores. Bueno, ya sabemos que 
aún no hay nada, pero no importa, practiquemos un po- 
co. Al acabar el capítulo anterior dejamos el cursor 
en posición [KK]. En este caso todo lo que tenemos que 
hacer es presionar la tecla A y en la pantalla apare- 
cerá la palabra clave NEW. Ahora, para que surta efec- 
to, tenemos que introducirla en el ZX81 pulsando NEW- 
LINE, a la derecha del teclado. Al hacerlo, NEW des- 
aparece de la pantalla y reaparece KK]. El ZX81 ha obe- 
decido el comando: 'borra cualquier programa anterior 
y prepárate para recibir uno nuevo'. 


Comandos e instrucciones 


Humpty Dumpty decía: 'cuando utilizo una palabra su 
significado es exactamente aquel que yo elijo'. Acaba- 
mos de utilizar las instrucciones NEW y NEWLINE; en lo 
sucesivo las llamaremos comandos. Los comandos no for- 
man parte de un programa. Son ordenes que se obedecen 
una vez y luego se olvidan. Casi todas las palabras 
clave y EDIT, LPRINT, SLOW, FAST y LLIST son acepta- 
das por el ZX81l como comandos. INPUT da error. FOR, 
NEXT, PAUSE y SCROLL no son útiles. 
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Por otra parte, las sentencias o instrucciones pro- 
piamente dichas forman parte de las líneas numeradas 
de los programas. El ZX8l1 las memoriza y obedece cada 
vez que se ejecuta el programa. Salvo CONT, cualquier 
palabra clave puede constituir una instrucción, así 
como STOP, LPRINT, SLOW, FAST y LLIST. 


Escribamos un programa 


¡Ya era hora!. Ya vimos en el capítulo 3 que todas 
las líneas de un programa BASIC tienen que estar nume- 
radas; por tanto, teclee un número de línea, como "10" 
por ejemplo. El cursor sigue siendo dado que lo que 
sigue a un número de línea debe ser una palabra clave. 
Ahora pulse "P". En pantalla tenemos: 


14 PRINT[ 
Continúe tecleando: 
10 PRINT "REGLA PRIMERA EN BASIC|[] 


Introduzca todo esto en la memoria del ZX81 pulsan- 
do NEWLINE. ¿Qué ha pasado?. Pues que ha aparecido 
otro cursor: el [Ss]. Esto significa que hemos cometido 
un error de sintaxis, algo equivocado en la línea que 
impide que sea admitida. Inmediatamente recordamos que 
las comillas siempre van en parejas, las cerramos y 
tocamos de nuevo NEWLINE. Esta vez la línea 10 salta a 
la parte superior de la pantalla y el cursor reapa- 
rece al pie. La línea ha sido aceptada y ya podemos 
escribir otra. 


Pero por el momento no lo vamos a hacer. Vamos a 
ejecutar el programa tal como está. Pulse "R" para si- 
tuar en pantalla el comando RUN y seguidamente toque 
NEWL INE . 


Cuando haya pasado el primer momento de euforia ob- 
serve cuidadosamente lo que ha ocurrido. Todas las pa- 
labras y espacios entrecomillados han sido impresos 
tal como estaban, mientras que el número de línea, 
cursores y comillas han desaparecido (servían sólo pa- 
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ra indicar al ZX81 qué debía hacer). Lo que hemos he- 
cho con la línea 1Q ha sido imprimir en pantalla una 
cadena de caracteres. Las cadenas de caracteres van 
entrecomilladas y pueden contener cualquier cosa pro- 
cedente del teclado excepto las comillas SHIFT P (si 
desea que aparezcan comillas use SHIFT Q). En la par- 
te inferior de la pantalla vemos (Q/10, que es un códi- 
go mediante el cual el ZX81 nos informa que "el pro- 
grama se ha ejecutado sin problemas y ha terminado en 
la línea 10". El programa permanece en memoria hasta 
que usted lo borre, teclee NEW o desconecte. Si lo 
desea puede verlo de nuevo pulsando NEWL INE. 


Oculto por el código de información se encuentra el 
cursor [K], listo para iniciar la próxima línea de pro- 
grama. Pasemos al capítulo siguiente y escribamos al- 
gunas más. 


En este capítulo hemos aprendido ... 


Comandos 


NEW para borrar programas anteriores. 


NEWLINE para introducir comandos y líneas de 
programa. 


RUN para ejecutar los programas. 
Instrucciones 


PRINT para imprimir en pantalla cadenas de ca- 
racteres. 


Otros 


Comandos e instrucciones 
Cursores 
Errores de sintaxis 


Códigos de información 


6 


¡Programe bien! 


La segunda línea de nuestro programa 


Para que el programa introducido aparezca en panta- 
lla pulse NEWLINE. Luego teclee la segunda línea así: 


24 PRINT "TODA LINEA NECESITA UN NUMEROS" [L] 


¡Perdón! . Hemos cometido un error, pero no hay que 
preocuparse. Mantenga presionada SHIFT y toque RUBOUT 
dos veces. Verá que el cursor retrocede dos posicio- 
nes, borrando las comillas y la S. Teclee otra vez las 
comillas y presione NEWLINE, con lo que la línea 20 se 
añadirá al programa. Ejecútelo y obtendrá en pantalla 
la siguiente salida: 


REGLA PRIMERA EN BASIC 
TODA LINEA NECESITA UN NUMERO 


además del código (0/20. 


Hasta ahora he venido indicando el tipo y posición 
del cursor al introducir líneas de programa. En lo su- 
cesivo lo omitiré, salvo en aquellos casos en que haya 
una razón que aconseje lo contrario. 
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Mejoremos los programas 


Obtendremos un resultado más pulcro si entre las 
dos líneas de la salida dejamos un espacio en blanco. 
Pruébelo. Teclee: 


15 PRINT 


e introdúzcalo pulsando NEWLINE. ¿Qué demonios estamos 
tratando de hacer?. ¿Imprimir qué?. Bueno, ejecute el 
programa y lo verá. Funciona perfectamente, ¡por su- 
puesto!. Cuando el /X81 se encuentra con una instruc- 
ción PRINT imprime lo que ésta le diga. La línea 15 le 
dice que no imprima nada, ¡y nada resulta impreso!. 


Finalmente añadiremos un comentario que nos diga 
algo sobre el programa. Teclee: 


5 REM** MI PRIMER PROGRAMA 


La instrucción REM equivale a decir: 'Ignora el 
resto de esta línea. Es sólo un recordatorio para el 
programador'. Los asteriscos ** se han añadido simple- 
mente para que la línea REM resalte mejor. 


Numeración y listado 


A la mayoría de ordenadores hay que pedirles expre- 
samente que listen el programa, pero no al /X81 que lo 
hace tan pronto como usted toque NEWLINE o añada otra 
línea. Con toda seguridad usted habrá notado que el 
Z2X81 ordena numéricamente las líneas, aunque hayamos 
tecleado 10, 20, 15, 5. Imagino que también habrá 
adivinado que elegimos números de línea no consecuti- 
vos para poder realizar inserciones fácilmente, como 
hicimos con las líneas 15 y 5. Al ZX81 no le interesa 
el valor de estos números, sino sólo su orden. Podemos 
elegir entre 1 y 9999. ¡Seguro que son suficientes!. 


Borrar líneas completas 


Supongamos que queremos borrar la línea 5 para 
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ahorrar memoria (con frecuencia éste es el triste des- 
tino de las líneas REM. Basta con teclear el número de 
línea 5 y pulsar NEWLINE. Puede hacerlo tantas veces 
como desee. El ZX81 borrará siempre la línea antigua y 
la sustituirá por la nueva. 


Hagamos ahora un par de ejercicios para practicar 
lo aprendido en los dos últimos capítulos. 


Ejercicio 6.1 Cambio de línea 


Borre las líneas 15 y 20 y cambie la 10 de tal modo 
que se imprima el mensaje: 


TRES LINEAS SE VAN, UNA SE QUEDA 


Ejercicio 6.2 Su dirección 


Borre el programa anterior con una sola palabra 
clave (¿recuerda cual?). Escriba un programa que im- 
prima su nombre y dirección como lo haría en un sobre. 
Deje intervalos de 1000 entre los números de línea, 
solo para comprobar que es posible. 


En este capítulo hemos aprendido ... 
Instrucciones 


PRINT para dejar una línea en blanco. 


REM para comentarios que el ZX81 ignora. 
Otros 
RUBOUT para borrar caracteres de uno en uno en 


la línea que se está escribiendo. 


Listado automatico del programa al pulsar NEW- 
LINE. 


Números de línea no consecutivos para facilitar 
inserciones ulteriores. 


Borrar y cambiar líneas. 


¿Sumar? ¡Ningún problema! 


Hasta ahora he venido recordando que hay que pre- 
sionar NEWLINE para introducir en el ZX81 comandos y 
líneas de programa de la parte inferior de la panta- 
lla. ¡En lo sucesivo tendrá que recordarlo usted!. 


Palabras clave en funciones de comando 


Hemos utilizado la palabra PRINT como instrucción 
en líneas de programa, pero ya vimos en el capítulo 5 
que muchas palabras clave pueden utilizarse también 
como comandos. Haga la prueba, teclee: 


PRINT "ESTO ES UN COMANDO _DE SALIDA" 


El ZX81 obedece una sola vez y luego la olvida. El 
código Q/f muestra que no hay número de línea. 


Números y expresiones 


Podemos hacer que el ZX81 imprima números de la 
misma manera que imprime cadenas de caracteres. La 
única salvedad es que en este caso no hay que utili- 
zar comillas. Pruebe: 


PRINT 99 PRINT 3.74 
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PRINT Q.075 PRINT .625 


El punto actúa como punto decimal. El cero a la iz- 
quierda del punto decimal puede omitirse. 


Una expresión está integrada por números y operado- 
res. Por ejemplo, 5+3. Si ordenamos al ZX81 que impri- 
ma una expresion, calculara e imprimira el resultado. 
Teclee: 


PRINT 5+3 


La respuesta, 8, aparecerá en la parte superior de 
la pantalla. De esta manera hemos utilizado el /X81 
como si fuera una calculadora de bolsillo, pero con la 
ventaja de que antes de obtener el resultado podemos 
ver la expresión completa y corregirla si es necesa- 
ELO» 


Operadores y prioridades 


Todos recordamos los cuatro operadores aritméticos 
básicos. Los signos - y + se encuentran en SHIFT J y 
SHIFT K. En lugar de x o "multiplicado por" utilizamos 
* (SHIFT B) y en vez de : o "dividido por" usamos / 
(SHIFT V). Esto es igual en cualquier tipo de ordena- 
dor. Además tenemos ** (SHIFT H) que significa "ele- 
vado a la _potencia": 


2**3 - 2? - 2x2x2 = 8 


Practique tecleando expresiones simples compuestas 
de dos numeros y un operador: 


PRINT 25-17 PRINT 7-12 PRINT 9*11 
PRINT 63/9 PRINT 125/48 


Observe que el ZX81 opera satisfactoriamente con 
numeros negativos y con decimales. Si usted teclea: 


PRINT 2/3 y PRINT 1/3 


la respuesta constará de 8 decimales, con redondeo. 
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¿Qué sucede cuando las expresiones son más comple- 
jas, tal como la siguiente?: 


2 +3%*4 


Si calculásemos a mano el valor de una expresión 
como ésta seguiríamos un determinado orden en la eje- 
cución de las operaciones. El ZX81 y la mayoría de or- 
denadores hacen lo mismo. 


Mayor prioridad ise Potenciación 
| * y] Producto y cociente 
Menor prioridad + y - Adición y sustracción 


Por tanto la expresión anterior se calcula en dos 
etapas: 


(1) 3*4 = 12 
(2) 2+12 = 14 (resultado) 


Pruebe con las expresiones que siguen y con otras 
que usted mismo puede idear: 


PRINT 7*2 - 5 PRINT 9 - 12/6 
PRINT 3**3 +5 PRINT 38 - 5**2 


Asegúrese de que las respuestas que obtiene son las 
correctas. 


Paréntesis 


Si queremos que el ZX81 modifique su prioridad en 
la ejecución de operaciones tendremos que utilizar pa- 
réntesis. El ZX81l respeta las reglas matemáticas y 
calcula en primer lugar las expresiones que están den- 
tro de los paréntesis. Compare estos dos casos: 


PRINT 2 + 3%*4 PRINT (2 + 3) *4 
(1) 3x4 = 12 (1) a do 
(2) 2 +12. = 14 (2) 5x4 = 20 
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Compruebe que el 7/X81 da bien las respuestas. Usted 
puede utilizar cuantos paréntesis desee, siempre que 
no olvide cerrar ninguno, ya sean contiguos o separa- 
dos. Cuando el ZX81 se encuentra con paréntesis múlti- 
ples empieza el cálculo por la parte interior y va 
avanzando hacia el exterior. No dude en utilizar más 
paréntesis que los estrictamente necesarios si con es- 
to una expresión resulta más inteligible para usted. 


EJercicio 7.1 


Calcule la respuesta de las expresiones siguientes 
y luego verifíquelas con el ZX81. 


((7-5)*(30/12))**3 
(((6*8)-(23-11))/(5+7))**2 


Notación científica 


Teclee estos comandos y observe atentamente las 
respuestas: 


PRINT .00007 
PRINT 7/19**5 


PRINT 7000000000000 (12 Qs) 
PRINT 7*19**12 


y ahora éstos: 


PRINT .000007 
PRINT 7/10**6 


PRINT 70000000900000 (13 Qs) 
PRINT 7*19**13 


Cuando maneja números muy grandes o muy pequeños, 
el ZX81 los imprime en notación científica: 


7€+13 es lo mismo que 7*10**13 o 7x10*? 
7E-6 es 7/10**6 o 7/10? o 7x10? 


Este método es muy utilizado en calculadoras. 
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Si queremos se puede emplear la notación científica 
para representar los numeros que introducimos en el 
7X81. Teclee: 


PRINT 7E-5 
PRINT 7E-6 


Si dispone de espacio, el ZX81 pasará estos núme- 
ros a notación ordinaria. 

En este capítulo hemos aprendido ... 

Comandos 


PRINT para imprimir cadenas de caracteres o nú- 
meros o resultados. 


Otros 


Operadores matemáticos y prioridades 
Paréntesis para alterar prioridades 


Notación científica 


8 


Variables 


Hemos aprendido a utilizar comandos para que el 
Z2X81 imprima en pantalla números o resultados. Esto 
mismo lo podemos conseguir desde el programa, pero no 
resulta especialmente útil dado que disponemos de una 
instrucción mucho más potente: LET. 


Definición de variables con LET 
Borre la memoria del ZX81 con NEW y teclee: 
1 LET X = 5 


Ejecútela. No aparecerá ninguna salida salvo el 
mensaje Q/10. ¿Qué hemos hecho esta vez?. En lenguaje 
ordinario diríamos que hemos etiquetado con una X una 
celdilla de memoria y hemos guardado un 5 en ella. En 
otras palabras, hemos definido la variable X y le he- 
mos asignado el valor 5. 


Con el contenido de X podemos hacer muchas cosas. 
Podemos imprimirlo: 


20  PRINT X (y RUN) 


Podemos emplearlo en expresiones: 
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30 PRINT 109 * X 
40 PRINT Xx ** 3 


Vea que aunque hemos utilizado el contenido de la 
"celdilla" X en las líneas 20, 30 y 40, el valor 5 si- 
gue allí. Compruébelo: 


50 PRINT X 


El 5 inicial continúa estando allí, pero podemos 
cambiarlo si queremos: 


6Q LET X = 999 
70 PRINT X 


La línea 6 dice: "Vacía el contenido de la celda X 
y pon en ella el valor 999". Podemos modificar el va- 
lor de una variable tantas veces como queramos; por 
eso precisamente se llama variable. 


Denominación de variables 


El número de variables que podemos emplear en un 
programa está limitado únicamente por la memoria dis- 
ponible, pero en cualquier caso todas ellas deben te- 
ner nombres diferentes. El ZX81 ofrece una amplia gama 
de posibilidades de elección de nombres de variable. 
Simplemente hay que seguir estas reglas: 


(1) Los nombres de variable deben empezar por una 
letra, no por un numero. 


(2) Los nombres de variable pueden tener letras y 
cifras, pero no blancos (se ignoran) o cual- 
quier otro signo (no se admiten). 


Generalmente utilizamos nombres mnemotécnicos y 
cortos para economizar memoria: T para total, P para 
peso, etc. Practique con nombres de variable que se le 
ocurran a usted y vea qué pasa cuando no respeta las 
reglas anteriores. 
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Instrucciones LET más complejas 


Nuestra instrucción tiene la forma general: 


LET Nombre de variable = ... 


¿Qué es lo que podemos poner a la derecha del signo 


igual?. 


mos: 


Veamos unos ejemplos: El primero ya lo conoce- 


(1) Un número: 


(2) 


(3) 


(4) 


LEFT BD = 73 


Una expresión compuesta por números: 
LET C = 23*45 


Una expresión que use otras variables, con o 
sin números: 
LETA:= LET V = B**3 


¡Atención!. A la derecha del signo igual usted 
sólo puede utilizar variables que previamente 
hayan sido definidas, de lo contrario el ZX81l 
se las rechazará. 


Una expresión que utilice la misma variable que 
a la izquierda del signo =. 


LET B = B+10 LET A. = "AX 


En Algebra nunca actuaríamos así. Recuerde que 
esto no son ecuaciones. Estamos diciendo cosas 
como: "Toma el valor de la celda B, súmale 10 y 
pon este nuevo valor en esa celda". 


Cómo utilizar las variables 


Si conocemos el radio (R) de un círculo, podemos 
emplear Jas ecuaciones siguientes para calcular el 
diámetro (D), circunferencia (C) y área (A). 


D 
C 
A 


moron 


233230 
DOD 
mo 
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Como valor de T tomaremos 3.14. Vamos a programar 
todo esto. Empezaremos por definir R, el radio del 
círculo en cm. 

14. LETR =5 


Ahora definimos y calculamos las otras variables: 


28 “UET D <= 2R 
3Q LET C = 3.14*D 
40 LET A = R**2*3.14 


Finalmente imprimimos los resultados: 


50 PRINT R 
6Q PRINT D 
79 PRINT C 
8Y PRINT A 


Ejecute el programa y verifique los resultados con 
una calculadora de bolsillo. Si deseamos que los re- 
sultados sean menos impersonales, podemos imprimir tí- 
tulos: 


45 PRINT "RADIO CONOCIDO = " 
55 PRINT "DIAMETRO = " 

65 PRINT "CIRCUNFERENCIA = " 
75 PRINT "AREA = " 


Usted puede cambiar el dato inicial, el radio, es- 
cribiendo de nuevo la línea 10. 


Bueno, para empezar no ha sido un mal programa, pe- 
ro el orden de la salida impresa deja bastante que de- 
sear. En el próximo capítulo lo mejoraremos un poco. 


Ejercicio 8.1 Cambio de moneda 


Supongamos que en el mercado de cambios la libra 
esterlina cuesta 1.90 dólares. Escriba un programa que 
imprima el número de dólares que puede obtener por 75 
libras y cuántas libras son necesarias para comprar 
50 dólares. 
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Ejercicio 8.2 Paracaidismo 


Un miembro del equipo:Halcones salta desde su avión 
a 3.000 metros. La distancia de caida viene dada por 
la ecuación S = AT*/2 donde A es la aceleración de la 
gravedad (9,8 m/s/s) y T es el tiempo en segundos des- 
de el momento del salto (se desprecia la resistencia 
del aire). Escriba un programa que calcule su altura 
después de 10 segundos. En el supuesto que tenga que 
abrir el paracaidas a 500 metros sobre el suelo, uti- 
lice el programa para calcular aproximadamente cuantos 
segundos durará su caida libre. 


En este capítulo hemos aprendido ... 


Instrucciones 


LET para definir variables. 


PRINT para imprimir el valor actual de una 
variable. 


Otros 


Reglas para la denominación de variables. 


Diversos empleos de las variables. 
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Signos de puntuación 


Está claro que nos hemos excedido en el número de 
instrucciones PRINT que hemos utilizado. Podemos sim- 
plificar el aspecto que ofrece la pantalla aprovechan- 
do más cada línea. Véalo: 


10 PRINT "AREA DE UN CUADRADO" 
24 PRINT 

30 LETS = 4 

40 PRINT "LADO = ";S3" CM" 


Ejecútelo y observe el resultado de la línea 4. Lo 
más importante son los puntos y coma, que equivalen a 
decir: "No saltes de línea. Imprime la siguiente in- 
formación en las posiciones contiguas". Se puede uti- 
lizar el punto y coma separando diversas informaciones 
dentro de la misma línea PRINT, o bien al final de 
ella. En este último caso la próxima instrucción PRINT 
ocasionará una impresión contigua a la anterior. Vea 
que para tener un espacio en blanco entre S y CM, 
hemos incluido uno dentro de las comillas. 


Ahora modifique el programa así: 


32. LET Ac="S*5S 
4) PRINT "LADO = "3S;z" CM","AREA = ";A;z" SQCM" 


Hemos usado otro importante signo de puntuación: la 
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coma. Cada línea puede dividirse en dos mitades y la 
coma significa: "Imprime lo que sigue partiendo del 
principio de la siguiente mitad de línea". Si lo desea 
puede utilizar comas en grupos. Cada una de ellas des- 
plaza la impresión al principio de la siguiente mitad 
de línea. 


Respecto al punto, ya sabemos que cumple la función 
de punto decimal. El resto de signos de puntuación 
pueden utilizarse en cadenas de caracteres, pero no 
tienen una utilidad especial. 


Tabulación 


¿Cuántos caracteres puede contener una línea de 
pantalla?. Cuentelos: 


2Q PRINT "Q12345678901234... 


Cuando se agote la línea los números empezarán a 
salir en la siguiente, pero recuerde que 20 PRINT  " 
también ocupa espacio. Deje de introducir cifras cuan- 
do el cursor esté exactamente debajo del primer /, 
cierre las comillas y pulse NEWLINE. Ahora, si ejecuta 
el programa obtendrá una línea completa de 32 cifras 
(para comprobarlo teclee otra vez con una cifra más). 
Podemos repetir la línea imprimiendo las decenas tras 
diez blancos: 


1Q PRINT " 1111111111222222222233" 
Ahora vea el efecto de la coma sobre la salida: 


30 PRINT 
40 PRINT "PRIMERA MITAD",'SEGUNDA MITAD" 


Ahora modifique y amplíe el programa así (recuerde 
que TAB forma parte del conjunto de funciones): 


40 PRINT "UNO" 

50 PRINT TAB 7;"DOS" 

6Q PRINT TAB 15;"ATO" 

74 PRINT TAB 20;"MI ZAPATO" 


SIGNOS DE PUNTUACION 39 


Es evidente lo que ocurrirá: TAB n; mueve la salida 
impresa hasta la posición n. Es necesario poner un 
punto y coma después de TAB n (podría ponerse una co- 
ma, pero no es aconsejable). 


Es frecuente tener que imprimir varias cosas en la 
misma línea. No hay problema. Sencillamente utilice el 
punto y coma para impedir que el ZX81 salte de línea. 
He aquí un ejemplo: 


40 PRINT TAB 8; "EXTRACTO DE CUENTA" 


5Q PRINT 

60 PRINT 

709 PRINT "FECHA"; TAB 8;"DEBE";TAB 14;"HABER"; TAB 
24; "SALDO" 


Podemos imprimir números, expresiones o variables 
en las posiciones indicadas por TAB igual que lo he- 
mos hecho con cadenas de caracteres. Veamos algunas di- 
rectrices para el uso de TAB que nos serán muy útiles 
más adelante: 


(1) No es imprescindible poner un número después de 
TAB. Podemos utilizar una variable previamente 
definida o una expresión que contenga números y 
variables. 


(2) Si el número que sigue a TAB es decimal será 
redondeado al entero más próximo (7.5 se redon- 
deará a 8). 


(37:51 el número que sigue a TAB es mayor que 31, 
será dividido por 32 y se tomara el resto. 


Ejercicio 9.1 Círculos 


Vuelva al capítulo 8 y escriba de nuevo el último 
programa de tal modo que su salida en pantalla sea: 


DATOS IMPORTANTES DE UN CIRCULO 
SI EL RADIO ES 5 CM 
DIAM = 10 CM  CIRCUNF = 31.4 CM 
AREA = 78.5 SQCM 


40 7X81 


Una vez escrito el programa no lo borre, lo usare- 
mos en el próximo capítulo. 
En este capítulo hemos aprendido ... 


5 , y TAB para modificar las posiciones de impre- 
sión en pantalla. 
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¡Un error lo comete 
cualquiera! 


Hemos visto ya dos procedimientos para corregir 
errores en un programa. Podemos utilizar RUBOUT si 
queremos borrar algo en la misma línea que estamos es- 
cribiendo. También podemos borrar o sustituir una lí- 
nea anterior completa empleando el mismo número de 1Íí- 
nea para introducir la modificada. 


Pero si queremos cambiar una línea larga ya intro- 
ducida, el primer método no funciona y el segundo re- 
sulta laborioso. Lo mejor es editar (EDIT) la línea. 


El cursor de programa 


Veamos de qué se trata. Vamos a editar mi versión 
del programa sobre los círculos (Ejercicio 9.1 del ca- 
pítulo 9). Usted puede probar con su propia versión, o 
bien utilizar la mía. Como prefiera. 


Si observa el programa en la pantalla, verá que de- 
lante de uno de los números de línea hay un indicador 
o cursor |), que denominamos indicador de línea o cur- 
sor de programa. A menos que usted lo haya movido, se 
encontrará delante de la última línea introducida. Lo 
primero que hay que hacer es llevar este indicador 
hasta la línea que deseamos editar: 


(1) Si esa línea está próxima, podemos utilizar la 
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tecla << (SHIFT 7) o <> (SHIFT 6) para moverlo en 
sentido ascendente o descendente, línea por l1Í- 
nea. 


(2) Para llevarlo al principio del programa, pulse 
LIST y NEWLINE. El indicador, que aparentemente 
ha desaparecido, se encuentra ahora frente a 
una imaginaria línea Y y basta con tocar —O para 
que baje una línea y reaparezca. 


(3) Para situarlo en cualquier lugar teclee LIST y 
el mismo número de línea. En pantalla aparecerá 
una parte del programa, empezando por esa línea 
y con el indicador ante ella. 


Practique estos tres métodos moviendo el cursor de 
programa arriba y abajo. 


Edición de una línea 


Quiero editar la línea 9 de mi programa: 
90 PRINT "DIAM = "5D;5" CM", "CIRCUNF = "5C3" CM" 


y borrar toda referencia al diámetro e imprimir "cir- 
cunferencia" en TAB 3. 


Primero pongo el cursor de programa frente a la lí- 
nea 9 y presiono EDIT (SHIFT 1). La línea 9) aparece 
inmediatamente en la parte inferior de la pantalla, 
con el cursor situado a continuación de la línea 9. 
Ahora puedo mover el cursor hacia delante o hacia 
atrás utilizando ( (SHIFT 5) o O (SHIFT 8) sin que 
cambie el contenido de la línea. Pruébelo y vea como 
el cursor avanza o retrocede y cómo cambia a cuando 
sobrepasa PRINT. Sitúelo justo después de la coma en 
el centro de la línea y entonces use RUBOUT para eli- 
minar todo lo que esté detrás hasta las primeras comi- 
llas. Ahora tenemos: 


99 PRINT[ "CIRCUNF = ";C;" CM" 


Teclee TAB 3 y entonces mueva el cursor hasta que 
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esté exactamente detrás de CIRCUNF, y teclee ERENCIA. 


Si usted no acaba de estar satisfecho, pulse de 
nuevo EDIT y reaparecerá otra vez la línea original en 
la base de la pantalla. 


Suponiendo que usted está conforme con la línea 
corregida: 


94 PRINT TAB 3;"CIRCUNFERENCIA ";C;" CM" 


presione NEWLINE e inmediatamente se situará en el lu- 
gar correspondiente del programa. La línea sustituida 
habrá desaparecido definitivamente. 


Renumeración de líneas 


Ahora queremos numerar de nuevo la línea 9, asig- 
nandole el 105. Con el ZX81 no hay ninguna dificultad. 
Edite la línea pulsando EDIT y entonces presione dos 
veces RUBOUT para borrar el 9. Teclee el nuevo número 
195 y pulse NEWLINE para incorporar la línea al pro- 
grama. La línea 9f permanece en su sitio. Para borrar- 
la tendrá que teclear 9 NEWLINE. 


Algunos puntos más 


Recuerde que puede usar también las flechas para 
editar una línea que esté usted escribiendo por prime- 
ra vez. 


Si usted escribe un programa largo, sólo le cabrá 
una parte en la pantalla. El ZX81 le muestra precisa- 
mente la parte sobre la que usted está trabajando. No 
obstante, puede teclear LIST n para que aparezca la 
línea n y siguientes en la pantalla. 


Cuando la memoria disponible de su ZX81l está proxi- 
ma a agotarse, observará que EDIT no actúa, especial - 
mente con líneas de programa largas. El remedio con- 
siste en teclear CLS y NEWLINE. De este modo se borra 
la pantalla y EDIT vuelve a funcionar. 
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En este capítulo hemos aprendido ... 
Comandos 
EDIT para modificar una línea ya introducida en 
el programa. 
LIST, LIST n para llevar a la pantalla diferen- 
tes partes de un programa largo. 
Otros 
El cursor de programa o indicador de línea y 
cómo desplazarlo verticalmente. 
Cómo mover el cursor de línea. 


Modificar la numeración de las líneas. 
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Funciones 


En el teclado las funciones se encuentran bajo las 
teclas de letras, junto a algunas cosas que no son 
funciones. No se preocupe si echa de menos en este 
capítulo algunas funciones matemáticas. Consulte la 
lista de funciones al final del libro. 


Una función de un número es una instrucción que 
realiza alguna operación con ese número y obtiene un 
resultado. El número sobre el que se opera (también 
puede ser una expresión o variable) se denomina 'argu- 
mento' de la función. Pruebe tecleando estos comandos: 


PRINT SOR 81 

LET A = 25 y luego PRINT SQR A 
PRINT SQR 2 

PRINT SQR (A*9) 


Supongo que ha adivinado que SQR es nuestra vieja 
amiga la raíz cuadrada (un número que multiplicado por 
sí mismo da el número de partida). Observe que en el 
último ejemplo solicitamos la raíz cuadrada de una 
expresión; por esto la hemos puesto entre paréntesis. 
Una función opera siempre con el número o variable que 
le sigue inmediatamente, a menos que se le indique 
otra cosa mediante el empleo de paréntesis. En otras 
palabras, una función tiene mayor prioridad que cual- 
quier otro operador matemático. 
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Podemos usar varias funciones conjuntamente. En es- 
te caso se ejecutan una por una de derecha a izquier- 
da. Por ejemplo: 


PRINT LN SOR 16 


nos da el logaritmo neperiano (en base "e'") de la raíz 
cuadrada de 16. El ZX81 trabaja exclusivamente con lo- 
garitmos neperianos (o naturales), así como con anti- 
logaritmos neperianos (EXP o e*). 


Las funciones trigonométricas 


Tome cualquier círculo, divida la circunferencia 
por el diámetro y obtendrá siempre un mismo número, 
ligeramente superior a 3, que llamamos PI y simboliza- 
mos por la letra griega mw. Si quiere mayor precisión 
teclee: 


PRINT PI (mr en el teclado) 


Todas las funciones trigonométricas están relacio- 
nadas con angulos, los cuales hay que expresar en ra- 
dianes para que el ZX81 los entienda. Podemos conver- 
CRC . . 
tir facilmente grados en radianes si recordamos que: 


PI radianes = 1802 


Si le interesa este tema practique con el siguiente 
programa que corresponde a una pequeña tabla trigono- 
metrica: 


19 LET XD = 39 

24 REM XD ES EL ANGULO EN GRADOS 

30 LET XR = XD*P1/189 

40 REM XR AHORA ESTA EN RADIANES 

5 PRINT XD;" GRADOS",XR;" RADIANES" 
60 PRINT , "SENO = "¿SIN XR 

79 PRINT , "COS = ";COS XR 

89 PRINT , "TAN = "¿TAN XR 


AN) 


(vea las , para espaciado de línea en 60, 70 y 80). 
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Ejecute el programa y haga pruebas introduciendo 
diferentes ángulos en la línea 10. Compruebe los re- 
sultados con la ayuda de unas tablas trigonométricas. 
Anote alguno de los conjuntos, como éste: 


60 SEN 
TAN 


V.8660254 COS:= DU 
1.7320P508 


Ahora teclee el comando: 


PRINT ASN /.8660254*180/PI 


y volverá a tener el ángulo original de 60%. ASN X (en 
el teclado, ARCSIN) da el ángulo en radianes cuyo seno 
es X. ARCCOS y ARCTAN hacen lo mismo con el coseno y 
la tangente. 


Aquí hay un hacha 


Más funciones: INT, ABS y SGN. Estudiémoslas prac- 
ticando: 


19 LET NN = 3 

190 PRINT "NUMERO";TAB 8;"ENT","ABS";TAB 24;'SGN" 
1109 PRINT 

120 PRINT N;TAB 8;INT N,ABS N;TAB 24;SGCN N 


Asigne toda clase de números a N en la línea 10: 
enteros, decimales, negativos. Si le da pereza, aquí 
tiene unos ejemplos: 


NUMERO. ENT ABS SGN 
3 3 3 1 
3,14" 3 3.14 1 
0.14  Q 3.14 1 
0 0 Y 0 

23 E) 3 | 
3 1 “Ek 314 <l 


Resulta obvio que INT "corta" y desprecia la parte 
decimal de un numero, respetando la parte entera, que 
es inferior al numero original. 
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3.14 da 3 (el entero inmediato inferior a 3.14) 
-3.14 da -4 (el entero inmediato inferior a -3.14) 


ABS es otra "cuchilla" que elimina cualquier signo 
negativo y lo reemplaza por un signo positivo. Es de- 
cir, da el valor absoluto de N. 


Empuñemos el hacha de nuevo con SGN. Ahora ha desa- 
parecido el número completo y lo único que queda es el 
signo, + O -, asociado a un 1. Cero no tiene signo, 
luego SGN Y = Q. 


Ejercicio 11.1 Parte decimal 


No existe una función que genere la parte decimal 
de un número. Eso tendrá que hacerlo usted. Escriba un 
programa que imprima un número, su parte entera y su 
parte decimal en sendas columnas. 


Redondeo de números 


Los ordenadores dan a menudo los resultados con 
tantos decimales que resultan engorrosos. Por lo tanto 
es frecuente la necesidad de redondear. INT no lo hace 
por sí misma. Para ver por qué teclee: 


PRINT INT 7.01 y PRINT INT 7.99 
Ambos dan 7, lo cual no es correcto en el caso de 


7.99, que está muy próximo a 8. Lo adecuado es sumar 
0.5 al número antes de aplicar INT, así: 


N N+0Q.5 INT (N +Q.5) 
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Ejercicio 11.2 Redondeo de decimales 


Hemos aprendido a redondear números hasta el entero 
más próximo. Ahora escriba un programa que redondee un 
número hasta la primera cifra decimal. Le sugiero que 
multiplique por 1f, redondee el resultado hasta el 
próximo entero y entonces divida por 1f. Pruébelo: 


Espero que le haya salido bien. Por el mismo proce- 
dimiento puede redondearse un numero hasta cualquier 
cifra decimal. 


Aún queda algo importante. El ZX81 necesita enteros 
para ejecutar ciertas instrucciones. Ya hemos visto 
TAB n y LIST n. También hay otras: 


PLOT UNPLOT RUN DIM GOTO 

GOSUB PAUSE PRINT AT PRINT (TO) 

Puede utilizar variables o expresiones con estas 
sentencias. El ZX81 calculará los valores. El problema 
es que las expresiones y variables con frecuencia con- 
ducen a números decimales. No se preocupe. El ZX81 los 


redondeará hasta el entero más cercano, igual que hi- 
cimos al principio de esta seccion. 


En este capítulo hemos aprendido ... 

Funciones: matemáticas, trigonométricas, INT, ABS y 
SGN. 

Redondeo de números. 


Redondeo automático por el ZX81, cuando alguna ins- 
trucción necesita enteros (LIST n por ejemplo). 
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La rueda mágica 


¿Se acuerda del Aprendiz de Brujo del capítulo 37. 
Aquí tenemos un modelo matemático de escoba que llena 
de agua un tanque de 150 litros a razón de cuatro li- 
tros por viaje. Necesitamos espacio 'en pantalla para 
ver las líneas correspondientes a un buen número de 
viajes. Con este objeto introducimos una nueva ins- 
trucción, SCROLL, que mueve ascendentemente el con- 
tenido de la pantalla, línea por línea, dejando espa- 
cio en la parte inferior para que podamos ir teclean- 
do. Introduzca este programa: 


19 LET W=Q 

20 LET W= W+4 

30 SCROLL 

4 PRINT W; " LITROS" 
5Q GOTO 20 


- La línea 10 vacía el tanque para empezar. 
- La 2 vierte 4 litros de agua en el tanque. 


- Las líneas 30 y 40 imprimen la cantidad total de 
agua vertida hasta el momento. 


- La línea 50 contiene una instrucción muy impor- 
tante. GOTO 20 significa: "Ve a la línea 20 y 
continúa ejecutando el programa desde allí". En 
otras palabras: "Ve otra vez a la fuente a bus- 
car más agua". 
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¿Puede usted predecir el resultado de este progra- 
ma?. Ejecútelo y observe... ¡agua, agua por todas par- 
tes!. ¿Pero cómo podemos parar las escobas?. BREAK 
(abajo a la derecha; no es preciso pulsar SHIFT) será 
nuestro recurso de emergencia. Sirve para detener el 
ZX81 mientras está trabajando, así que utilícelo aho- 
ra. Si desea reanudar la ejecución tras haber pulsado 
BREAK, toque CONT; en cualquier caso el contenido de 
la pantalla se habrá borrado. 


Habíamos creado un bucle entre las líneas 2f y 50. 
¡GOTO es un recurso de un valor inapreciable para rea- 
lizar grandes cantidades de trabajo!. En el capítulo 3 
ya vimos que precisabamos un salto condicional dentro 
del bucle para comprobar si el tanque esta lleno. Ha- 
gámoslo ahora cambiando la línea 5 y añadiendo dos 
líneas más: 


50 IF W < 150 THEN GOTO 20 
640 SCROLL 
7 PRINT "TANQUE LLENO. ¿QUE HAGO AHORA?" 


Todo ha ido bien, ¿verdad? (aparte de haber derra- 
mado dos litros). La línea 5f contiene una pieza fun- 
damental en programación. Equivale a decir: 'Comprueba 
el valor de W. Si es menor que 150, vuelve a la línea 
20. Si es igual o mayor que 15, pasa a la línea si- 
guiente'. ¡El BASIC no despilfarra las palabras! . 


(  =radores relacionales 


La línea 5 tiene la forma general: 


IF (si se cumple que ...) THEN (haz esto otro). 
Ejemplo: W < 159 Ejemplo: GOTO 20 


A continuación de la palabra clave IF siempre hay 
una instruccion que incluye uno de los operadores re- 
lacionales que:usamos para efectuar comparaciones: 


= igual que 
< menor que 
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> mayor que 

<= menor o igual que 
>= mayor o igual que 
<> distinto que 


A ambos lados de los operadores ponemos los térmi- 
nos que se comparan. Estos pueden ser numeros, va- 
riables o expresiones: 


= 100 THEN ... 
Y THEN: 0 

> A + 21 THEN ... 
<> A + B THEN ... 


Sí (IF) algo es cierto, entonces (THEN) ¿qué? 


En el programa anterior vemos: 
. THEN GOTO 20 


que es una forma muy corriente de instrucción condi- 
cional. Sin embargo THEN mantiene el cursor (¿lo ha- 
bía notado?) y puede ser seguida por cualquier otra 
palabra clave, aunque algunas de ellas no tendrían 
sentido. Son típicas éstas: 


GOTO PRINT LET 
GOSUB RETURN (esta la veremos más adelante) 


He aquí algunos ejemplos de línea condicional: 


100 1F X > 21 THEN PRINT "MAS DE 21. PIERDE" 
200 I1F T >= Z THEN GOTO 1000 
309 IF P < Q THEN LET P = Q 


Ve a (GOTO) ¿dónde? 


Tanto si GOTO es imperativo o condicional, tiene 
que ser seguido de un número de línea. Así puede diri- 
gir al ZX81 a cualquier línea del programa, anterior o 
posterior. Podemos emplear un número de línea como tal 
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o bien una expresión (con todas las variables previa- 
mente definidas, por supuesto). Si el resultado es un 
número decimal, el ZX81 lo redondeará para convertirlo 
en entero, y si el número de línea obtenido no existe, 
el ZX81 pasará al siguiente. 


¿Y el STOP? 


En medio de este galimatías puede sernos muy prove- 
choso conocer como parar. Pruebe con este programa: 


100 LET S = 78 

200 IF S >= 100 THEN GOTO 400 

300 PRINT "PIERDE. PUNTUACION = ";S 
400 PRINT "GANA. PUNTUACION = 100 + " 


Si lo ejecuta verá que necesita algo para detener 
al ZX81 que, de lo contrario, ejecutaría ambas ins- 
trucciones 300 y 400. 


359 STOP 


Añada esta instrucción y todo irá bien. Pruebe el 
programa con distintos valores de S y asegurese de que 
funciona. 


Ahora resuelva estos dos problemas. Los dos necesi- 
tan bucles IF... THEN. 


Ejercicio 12.1 Constructora 


Una constructora le ofrece un interés compuesto de 
un 8% con periodo anual. Si usted deposita 50M) £ y per- 
mite que se les vayan sumando los intereses, al cabo 
de un año tendrá: 


500 x 00 7 540 £ 


A los dos años: 


Sub x 198 y así sucesivamente. 


100 
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Escriba un programa que muestre cómo van creciendo 
sus ahorros a lo largo de 7 años, finalizando en 1989. 
Luego cambie una línea para redondear cada resultado 
hasta el penique más próximo (ver capítulo 11). 


Ejercicio 12.2 ¿Cuáles son los años bisiestos? 


Para saber si un año es bisiesto hay que comprobar 
si sus dos últimas cifras son divisibles por 4. Escri- 
ba un programa que imprima los años desde 1982 a 1999 
y diga cuáles son los bisiestos. La tabla siguiente le 
ayudará: 


Año Año dividido INT (Y/4) ¿Es INT (Y/4) 
Y por 4: (Y/4) igual a Y/4? 


En este capítulo hemos aprendido ... 


Comandos 


BREAK para detener al ZX81 mientras trabaja. 
CONT para reiniciar después de BREAK. 


Instrucciones 


SCROLL para mover hacia arriba el contenido de 
la pantalla, línea por línea, para ir de- 
jando espacio para escribir en la base. 


GOTO n dirige al ZX81l a la línea n del programa. 


IF condición THEN instrucción, ejecutan la ins- 
trucción dada (GOTO, etc.) si se cumple la 
condición establecida (X = 10, etc). 


STOP para detener la ejecución del programa e 
impedir que ejecute líneas indebidamente. 
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Otros 


Operadores relacionales. (.= «> + $y>=, <= 5%) 
para efectuar comparaciones. 
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Diagramas de flujo 


Ahora que ya conocemos los bucles y las instruccio- 
nes condicionales tenemos la posibilidad de escribir 
programas bastante complicados. Es hora de abordar los 


diagramas de flujo como ayuda a la programación. 


Suponga que quiere programar determinada operación 
(usemos el caso del Aprendiz de Brujo del capítulo 3 
como ejemplo ), La idea central de un diagrama de flujo 
consiste en dividir la operación en fases independien- 
tes, escribir cada fase en una figura y unir todas las 
figuras con flechas para mostrar el orden de ejecución 
de las fases. Las figuras que utilizamos son las si- 
guientes: 


Principio o final 


Símbolo de "proceso". Una fase de la 
operacion que no incluya decisiones. 


Símbolo de "decisión". Se plantea una 
pregunta y se establece una bifurca- 
ción. El camino que se tome dependerá 
de la respuesta a la pregunta. 


Y LL 
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Ahora dibujemos un diagrama de flujo para llenar el 
tanque con agua de la fuente. Comparelo con el progra- 
ma original del capítulo 3 y con el modelo matemático 
del último capítulo. Observe que los rombos represen- 
tan las instrucciones IF... THEN. 


Hay personas capaces de escribir directamente los 
programas sin necesidad de diagrama de flujo. No obs- 
tante a la mayoría de nosotros nos será útil. Más ade- 
lante veremos otros ejemplos de diagramas de flujo. 


Escoba llenando el tanque con agua de la fuente 


INICIO 


VE A LA 
FUENTE Y 
LLENA EL CUBO 


VACIA EL 
CUBO EN 
EL TANQUE 


¿ESTA 
LLENO EL 
ANQUE 3, 


INFORMA : 
TANQUE LLENO 


SI 
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Introducción de datos 


Volvamos al ejercicio 12.1 del capítulo 12 (encon- 
trará el programa en el apéndice 4). No es un mal pro- 
grama. Le da el interés tras una inversión de 500 £ al 
8% durante 7 años. Pero resulta engorroso cuando se 
quiere modificar el capital: hay que teclear de nuevo 
la línea 20. Bueno, no importa, podemos mejorarlo. 
Simplemente cambie la línea 2f para que diga: 


24 INPUT C 


Ejecute el programa. ¿Pero qué es esto?. ¡La panta- 
lla en blanco y un cursor en la base!. El ZX81 está 
diciéndonos: "Me he detenido y estoy esperando que me 
introduzcas un valor para la variable C". Teclee 500 y 
presione NEWLINE. Obtendrá exactamente el mismo resul - 
tado que antes con: 


20 LET C = 500 


pero ahora usted puede asignar a C un valor diferente 
cada vez que ejecute el programa. Pruébelo. Verá que 
INPUT es estupenda. 


Para facilitar las cosas a otras personas que uti- 
licen sus programas, puede imprimir una línea recor- 
dandoles que tipo de dato deben introducir: 
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19 PRINT "¿CUAL ES SU CAPITAL?" 


¿Fácil, verdad?. No se vaya; aún hay más cosas. 


Bucles con INPUT 


Tras haber ejecutado el programa, suponga que desea 
volver al principio y repetir con capitales distintos. 
¿Qué instrucción usaría?. Pues sí, lo ha adivinado: 


159 GOTO 10 


Tecléela y ejecute con diferentes valores de C. 
¡Vaya, no vale!. Se ha detenido con un código 5/100. 
Si mira el manual verá que significa "pantalla llena". 
Habrá que hacer algo al respecto. Por supuesto podemos 
recurrir a SCROLL, pero ¿imagina usted los resultados 
desfilando pantalla arriba con una pausa de vez en 
cuando?. Está claro que en este caso es más elegante 
borrar la pantalla antes de cada impresión. La ins- 
trucción para hacerlo es End (clear screen). Vea el 
listado completo: 


1Q PRINT,"¿CUAL ES SU CAPITAL?" 

20 INPUT C 

39 CLS 

50 LET Y = 1982 

100 PRINT Y;"CAPITAL + INTERES = £";C 


110 PRINT 

120 LET Y = Y+1 

130 -LET'C>= C*L.0S 

140 IF Y < 1999 THEN GOTO 100 
159 GOTO 10 


Ahora tenemos dos bucles, uno dentro de otro (ani- 
dados). ¿Y por qué no podemos poner CLS al principio 
del bucle exterior?. Pruebe y lo verá. 


Salir de un bucle con INPUT 


¿Pero cómo se para esto?. ¡Parece que va a estar 
pidiendonos datos eternamente!. El modo de detenerlo 
es pulsar STOP en una pausa input; acto seguido con 
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NEWLINE se suspenderá la ejecución y obtendremos un 
mensaje D/2M. Si desea reanudar toque CONT; el ZX81 
estará todavía en la línea 2f esperando nuevos datos, 
aunque CONT habrá borrado la pantalla. 


Bucles permanentes 


El anterior es un bucle permanente que resulta po- 
sible tan sólo gracias a que la instrucción INPUT va 
haciendo pausas en la línea 2. Si la sustituimos por: 


2Q LETC = 500 


veremos que el pobre ZX81 gira y gira siguiendo el bu- 
cle externo indefinidamente (o hasta que presionemos 
BREAK). ¡Un mal programa! . 


Ahora, unos ejemplos para que practique los bucles 
con INPUT. 


Ejercicio 14.1 Porcentajes 


Escriba un programa para expresar sus calificacio- 
nes en los últimos exámenes en porcentajes. Vaya in- 
troduciendo sus notas y la nota máxima posible y uti- 
lice la fórmula: 


Nota 


Nota maxima :19y-=% 


Ejercicio 14.2 Consumo de gasolina 


Haga un programa para introducir los Km recorridos 
y los litros de gasolina consumidos y que luego calcu- 
le los Km por litro. 
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En este capítulo hemos aprendido... 


Instrucciones 


INPUT para detener el programa e introducir va- 
lores de variable. 


CLS para limpiar la pantalla. 
STOP como input para salir de un bucle. 


CONT para reanudar después de STOP. 


Otros 


Bucles con input para detener repetidamente la 
ejecución e ir introduciendo datos. 
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Guardar programas y datos 


La impresora ZX 


Imagine que ha escrito un buen programa y que desea 
conservarlo. Cuando desconecte el ZX81 el programa se 
borrará y usted tendrá que desarrollarlo de nuevo. Por 
supuesto puede anotarlo en un papel, pero es un traba- 
jo engorroso y es fácil cometer errores. Todo será más 
sencillo si posee una impresora Sinclair ZX y ha teni- 
do la buena idea de conectarla al ZX81 antes de empe- 
zar (Sinclair recomienda no conectar la impresora sin 
desenchufar primero). En este caso podrá listar en pa- 
pel su programa tecleando el comando LLIST. Si sólo 
necesita guardar una parte del programa puede pulsar 
LLIST n y obtendrá un listado desde la línea n en ade- 
lante. Además puede suspender la impresión en el punto 
que quiera tocando BREAK. 


Otro modo de emplear la impresora consiste en hacer 
una copia sobre papel de la salida por pantalla. Use 
la palabra clave COPY, ya sea como comando o como ins- 
trucción, para imprimir el contenido, de la pantalla. 


Back-up 


Tanto si ha copiado el programa «(4 mano como si lo 
ha impreso en papel con la impresora ZX, tendrá que 
teclear bastante cuando quiera utilizarlo de nuevo. 
Puede ahorrarse todo ese trabajo haciendo lo que se 
conoce como back-up storage, es decir, guardar el pro- 
grama en algún soporte susceptible de ser leído por el 
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El ZX81 y la impresora ZX Printer diseñada especialmente para ser 
utilizada con los ordenadores personales Slinclair. 


Z2X81 sin necesidad de introducción por teclado. Esto 
podemos realizarlo auxiliándonos con casi cualquier 
tipo de grabadora de cinta magnetica. 


Guardemos un programa 


Mi cassette tiene conectores de 3.5 mm para micró- 
fono (MIC), auricular (EAR) y ajuste automático del 
nivel de grabación. Dispone de un buen contador (muy 
útil) y un indicador de nivel de grabación. Si a su 
aparato le falta alguna de estas características, se- 
guramente servirá, pero será más incómodo. 


Necesitará una cinta dedicada exclusivamente a pro- 
gramas del ZX81 y deberá anotar cuidadosamente su con- 
tenido. A continuación le indico una serie de opera- 
ciones que a mí me han dado buen resultado (si tiene 
problemas consulte el capítulo 16 del manual de ins- 
trucciones del ZX81): 
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(1) Conecte entre sí los terminales señalizados con 
MIC en el ZX81 y en el cassette. 


(2) Rebobine la cinta hasta el principio, ponga a 
cero el contador, bobine la cinta hasta que pa- 
se todo lo que hay ya grabado y anote la lectu- 
ra del contador. 


(3) Si quiere puede grabar de viva voz a través del 
microfono el nombre del programa. Esto es con- 
veniente cuando el aparato no tiene contador. 


(4) Pulse el comando SAVE "NOMBRE". Elija e intro- 
duzca el nombre. Tome nota del mismo. 


(5) Presione las teclas RECORD y PLAY del cassette. 
Entonces toque NEWLINE. Tras cinco segundos en 
blanco verá un conjunto de bandas blancas y ne- 
gras (su programa). Compruebe mediante el indi- 
cador de nivel que la grabación se está efec- 
tuando. 


(6) Al final la pantalla quedará en blanco con un 
código QV/f. Desconecte el cassette. El programa 
permanece intacto en el ZX8l. 


Es prudente dejar algún espacio de separación entre 
los diversos programas ya grabados; cinco segundos 
bastarán. Un programa de 1K tarda de 15 a 20 segundos 
en grabarse. 


Cargue su programa 


Ha pasado un día y usted quiere introducir de nuevo 
su programa de ayer en el ZX81. Yo lo hago así: 


(1) Bobino la cinta hasta el punto donde empezaba 
la grabación. 


(2) Conecto los terminales EAR del cassette y del 
ZX81. 


(3) Tecleo LOAD "NOMBRE" o simplemente LOAD " ". 


(4) Fijo el mando de volumen del cassette a 3/4 del 
máximo aproximadamente, y los mandos de tono, 
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si los hay, en el máximo de agudos y mínimo de 
graves. 


(5) Presiono NEWLINE. Ahora se ven una serie de fi- 
guras en la pantalla y después un rápido baile 
de franjas horizontales, algo así como una per- 
siana que se haya vuelto loca. Es el programa. 


(6) Después de la carga, la pantalla aparece limpia 
y con un código Q/f. Entonces desenchufo el 
cassette. 


(7) Ahora puedo presionar NEWLINE para listar el 
programa o bien RUN para ejecutarlo. 


Es preferible cargar programas con nombre 


Uno se vuelve perezoso y deja de teclear el nombre 
del programa entre las comillas que siguen a LOAD. Sin 
embargo esto hace la operación de carga menos fiable. 
Si usted ha dado nombre al programa, el ZX81 ignorará 
todos los demás, incluso la cola de algún programa an- 
terior. De hecho, si es necesario, el ZX81 buscara en 
la cinta y cargará el programa cuyo nombre se haya da- 
do. Hay que dar el nombre exacto; una letra o espacio 
equivocado y no se cargará nada. 


Guardar datos 


Muchos ordenadores utilizan instrucciones DATA .y 
READ que permiten escribir instrucciones con muchos 
datos. El ZX81 no dispone de esta facilidad y además 
introducir datos mediante instrucciones LET o INPUT es 
verdaderamente tedioso. 


¡Pero no todo está perdido!. Es importante darse 
cuenta de que una vez que se ha ejecutado un programa 
e introducido un dato a través de INPUT, sólo hay tres 
operaciones que borrarán los datos: 


(1) Desenchufar el ZX8l. 


(2) Presionar RUN otra vez. 
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(3) Pulsar CLEAR (una tecla que borra todas las va- 
riables). 


Para hacer trabajar el programa sin tocar RUN tene- 
mos que emplear GOTO como comando. Teclee este breve 
programa: 


19 INPUT A 
24 INPUT B 
30 INPUT C 


100 PRINT A;B;C;" GO" 


Ahora teclee el comando GOTO 100. Obtendrá el códi- 
go 2/10 que significa: "variable desconocida". Ejecu- 
te (RUN) el programa y asigne los valores 1, 2, 3 a 
las variables A, B y C. Esta vez tendrá la salida es- 
perada: 


123 GO 


Si a continuación introduce el comando GOTO 100 
conseguirá exactamente el mismo resultado (¡los datos 
permanecen en su sitio!). Sin otras manipulaciones, 
guarde (SAVE) el programa del modo usual y, con él, 
habrá guardado también los datos. Para comprobarlo 
primero desenchufe un momento el ZX81 y así descartará 
la posibilidad de hacer trampas. Entonces efectúe la 
carga del modo usual, pulse el comando GOTO 100 y el 
resultado: 


123 GO 


confirmará que los datos siguen en su lugar. Si en 
cualquier momento toca RUN, los datos desaparecen y 
tendrá que introducirlos de nuevo. Un último punto: si 
va escaso de espacio en memoria, puede economizar al- 
gunos bytes así: | 


(1) Escriba la parte del programa imprescindible 
para cargar los datos. 
(2) Ejecútela e introduzca los datos. 


(3) Borre las líneas de programa escritas hasta 
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ahora y escriba la parte del programa que uti- 
liza los datos. 


(4) Guarde el programa y los datos y use GOTO n pa- 
ra ejecutar el programa, ¡nunca RUN!. 


En este capítulo hemos aprendido ... 
Comandos 
LLIST o LLIST n para listar un programa sobre 


papel utilizando la impresora ZX. 


COPY para copiar sobre papel el contenido de la 
pantalla mediante la impresora ZX. También 
puede emplearse como instrucción en el seno 
de un programa. 


SAVE para transferir programas desde el ZX81l a 
una cinta magnética. 


LOAD para cargar programas en el /X81 desde la 
cinta magnética. 


GOTO n para ejecutar un programa a partir de la 
línea n sin borrar ningún dato. 


Otros 


Guardar datos en cinta y cargarlos de nuevo. 
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Gira y gira... diez veces 


Simplemente ojeando de nuevo el capítulo 12, usted 
debe ser capaz de hacer que un bucle se recorra exac- 
tamente diez veces. ¿Verdad que sí?: 


19 LETJI =Q 

2Q LET I = J+1 

3 PRINT J;" VECES EL BUCLE" 

4H IF I<1Qf THEN GOTO 20 

5Q PRINT 

60 PRINT "PARADO PARA DESCANSAR" 


El BASIC tiene una instrucción especialmente conce- 
bida para hacer lo mismo. Cambie el programa anterior 
£ 
asi: 


Borre la línea 14 ' 
20 FOR J = 1 TO 10 
4N NEXT J 


Ejecútelo. El resultado será idéntico. FOR/NEXT es 
un medio excelente de ahorrar tiempo. Para comprender 
como trabaja estudie detenidamente el programa y el 
diagrama de flujo de la pagina siguiente. 


He aquí algunas notas sobre los bucles FOR/NEXT: 


(1) N es la variable de control del bucle. Puede 
consistir en una letra, de la A a la Z, pero 
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evite las letras que use en otro lugar como 
variables ordinarias. 


(2) Los números a ambos lados de TO son los límites 
inferior y superior para la variable de control 
del bucle. Pueden ser números, variables o ex- 
presiones, pero el /X81: no redondea los valores 
en este caso. 


INICIO 
DEF INE 
J=1 
HACE ALGO 
INCREMENTA 
J EN 1 


28 FOR J] = 1 TO 108 


30 PRINT J;" VECES QUE SE HA 
EJECUTADO EL BUCLE" 


4W NEXT J 


54 PRINT 
64 PRINT "PARADO PARA 
DESCANSAR" 


DESCANSO 
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(3) La variable de control se incrementa en 1 cada 
vez que es recorrido el bucle. Fíjese que ter- 
mina en 1 unidad por encima del límite supe- 
rior, 


(4) El bucle puede incluir cualquier número de lí- 
neas de programa con cualquiera de las ins- 
trucciones usuales. Puede hacer lo que desee, 
incluso utilizar el valor de J, mientras no lo 
cambie. Recuerde que N se incrementa en 1 cada 
vez que se completa el bucle. 


(5) Es posible salir del bucle con una instrucción 
IF/THEN GOTO, pero no trate de entrar en un bu- 
cle FOR/NEXT si no lo hace por el principio; 
el ZX81 no sabría cuál es la variable de control. 


6) Un FOR sin el correspondiente NEXT es incorrec- 
to y será ignorado. Un NEXT sin FOR previo de- 
tendrá la ejecución del programa y dará un men- 
saje de error 1/n o 2/n. 


Ahora pruebe la técnica FOR/NEXT con este problema: 


Ejercicio 16.1 Tabla de raíces cuadradas 


Escriba un programa para imprimir los números ente- 
ros, desde el Q al 16, con su raíz cuadrada al lado y 
bajo un encabezamiento apropiado. 


Paso a paso 


¡Agárrese fuerte antes de leer esto!. No tenemos 
por qué andar sumando 1 cada vez que se completa un 
bucle. Si añadimos la palabra mágica STEP, podemos in- 
crementar en cualquier valor, o incluso decrementar 
empleando intervalos negativos. Vea unos ejemplos: 


FOR N = 1] TO 12 STEP 3 
FOR J = 8 TO Q STEP -1 
FOR K = P TO E STEP 3*R 
FOR L = Y TO 5 STEP Q.5 
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Pruebe cambiando la línea adecuada en su último 
programa sobre raíces cuadradas: 


FOR N = Q TO 16 STEP 2 


FOR N = 16 TO Q STEP -2 


Ahora practique FOR/NEXT/STEP en este ejercicio: 


Ejercicio 16.2 Múltiplos 


Escriba un programa que obtenga los múltiplos de 4 
entre Q y 10 en cuatro columnas. Una sugerencia: uti- 
lice el valor de la variable de control del bucle no 
sólo como múltiplo de 4, sino también como indicador 
de la columna donde debe imprimirse. 


En este capítulo hemos aprendido ... 
Instrucciones 
FOR/TO/NEXT para ejecutar un bucle un número 


determinado de veces. 


STEP para especificar los incrementos o decre- 
mentos de la variable de control del bucle 
cuando convenga que sean diferentes de +l. 


1/ 


Bucles dentro 
de otros bucles 


En el último capítulo cada programa tenía un bucle 
FOR/NEXT. Sin embargo, el número de bucles posible en 
un programa no tiene límite. Véalo: 


29 PRINT TAB J; "PRIMER BUCLE" 
30 NEXT J 
40 PRINT 

] 199 FOR J = 14 TO 12 


E FOR J=Q TO 4 


119 PRINT TAB J; "SEGUNDO BUCLE" 
12 NEXT 3 


Observe que hemos empleado J como variable de con- 
trol de ambos bucles. Esto es valido en el caso de bu- 
cles separados y es util para economizar memoria. 


19 FOR J = 1 TO 3 
20 PRINT "BUCLE EXTERNO" 
30 FOR K = 1 TO 5 
El PRINT TAB 5; "BUCLE INTERNO" 
5 NEXT K 
60 NEXT J 


Esta vez tenemos un "bucle K'" dentro de un "bucle 
3". A esto lo llamamos "bucles en series internas" o 
"bucles anidados". Puede utilizar hasta 26 bucles ani- 
dados, pero. debe respetar dos importantes reglas: 
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la 
la 
3, 
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(1) Tiene que usar letras distintas como variables 
de control de los bucles. 


(2) Los bucles internos deben estar contenidos en 
su totalidad dentro de los externos, no sola- 
pados parcialmente. 


¿Se acuerda de las tablas de multiplicar en forma 
matriz?. Aquí tiene un ejemplo: 


O 1: .2 
2 3 
2 3 4 


Si traza una línea descendente desde el número 1 de 
primera fila y otra línea horizontal desde el 2 de 
columna izquierda, ambas líneas se cortarán en el 
mostrando que 1+2 = 3. Estos cuadros pueden cons- 


truirse fácilmente con el ZX81: 


19 FOR J = Y TO 5 

29 FORK =Q TO 5 

30 PRINT TAB 4*k;J+k; 
4 NEXT k 

59  PRINT,, 

69 NEXT 


Y ahora un ejercicio: 


Ejercicio 17.1 Tabla de multiplicar 


Aquí tiene una tabla de multiplicar similar a la 


anterior: 


1 
Z 
3 


Modifique el último programa para escribir una ta- 


bla que cubra los números de l a 7. 


BUCLES DENTRO DE OTROS BUCLES ES 


Graficos sencillos 


Gráficos y bucles a menudo van juntos, así que va- 
mos a echar una ojeada a los elementos gráficos del 
teclado. Recuerde que tiene que pulsar GRAPHICS al em- 
pezar y al terminar. Cada bloque o elemento gráfico es 
un pequeño cuadrado del tamaño de una letra, dividido 
en cuatro cuadraditos, que pueden ser negros, blancos 
o, hasta cierto punto, grises. Están bien ilustrados 
en la página 78 del manual del ZX81. Además disponemos 
de impresión inversa de letras, algunos símbolos y es- 
pacio (cuadrado negro) que tienen gran utilidad. Pode- 
mos hacer que el ZX81 imprima cualquiera de los blo- 
ques gráficos como si fueran letras. Aquí tiene un 
cuadrado gris de 8 por 8 a título de ejemplo: 


190 PRINT "za"; 


Teclee y ejecute. Sale un cuadrado, pero ¡faltan 
63!. Añada estas líneas: 


9) FOR K = 1 TO 8 
119 NEXT K 


¡Perfecto!. Ya tenemos una fila de 8 bloques. Es- 
criba dos instrucciones más para obtener 8 de estas 
líneas: 


8Y FOR J = 1 TO 8 
139 NEXT J 


Ahora tenemos los 64 bloques, pero no exactamente 
en forma de cuadrado. ¿Qué es lo que está mal?. ¡Ah, 
sí!, es el punto y coma tras cada bloque el que hace 
que se impriman en fila. Tenemos que saltar de línea 
cada 8 bloques, es decir, tras cada bucle J. Una ins- 
trucción más y quedará bien: 


12 PRINT 


ahora el cuadrado es perfecto, y todo gracias a los 
bucles anidados. 


Y ahora le toca a usted: 
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Ejercicio 17.2 Rectángulo 


Escriba un programa que dibuje un rectángulo negro 
de 19 bloques de base por 5 de altura. Luego modifí- 
quelo de tal manera que imprima ESTO ES UN RECTANGULO 
en modo inverso y en el centro del rectángulo. 


Hay mucho más sobre gráficos. Volveremos a ellos en 
el capítulo 23. 
En este capítulo hemos aprendido ... 


Bucles múltiples y anidados. 


Gráficos sencillos utilizando los bloques gráficos. 
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¡Qué máquina 
más simpática! 


¿Se acuerda de LET y de INPUT?. Eran dos instrumen- 
tos para asignar valores a una variable numérica. ¡Se- 
ría estupendo poder hacer lo mismo con palabras!. Pues 
estamos de suerte, podemos hacer eso y más. Vea una 
muestra: 


19 PRINT "TECLEE SU NOMBRE Y NEWLINE" 
29 INPUT AS 

30 PRINT "GRACIAS";AS 

40 FOR J = 1 TO 200 

5 NEXT J 

60 PRINT, "ES UN NOMBRE MUY BONITO" 


¡AS es la gran noticia!, Se trata de una variable 
de cadena. La ejecución del programa se detiene en la 
linea 2f y el cursor en la base de la pantalla nos 
informa que el ZX81 está esperando que introduzcamos 
una Cadena de caracteres. Por tanto, tecleamos tantos 
caracteres como deseemos (o ninguno, si se trata de 
una cadena vacía), presionamos NEWLINE y nuestra cade- 
na queda asignada al nombre AS. Podemos utilizar AS 
siempre que queramos, tal como hemos hecho en la línea 
30. Las líneas 4f y 50 forman un bucle FOR/NEXT vacío; 
es un pequeño truco para establecer una pausa entre 
una salida y la siguiente. Nos es posible utilizar 
hasta 26 variables de cadena asociadas a nombres de 
una sola letra, de la A a la Z, seguida del signo $. 
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Si añadimos dos líneas más: 


79 GOTO 10 
23 (UES 


tendremos un bucle para introducción de cadenas y po- 
dremos ir tecleando tantos nombres bonitos como quera- 
mos. Salir de uno de estos bucles puede resultar difí- 
cil, puesto que el ZX81 aceptará como cadena cualquier 
cosa que se teclee. Pruebe introduciendo STOP, por 
ejemplo. La solución consiste en quitar las comillas 
de la base de la pantalla pulsando EDIT (lo más fácil) 
o bien borrándolas del modo ordinario. Si ahora toca 
STOP y NEWLINE volverá a estar en posición de introdu- 
cir comandos. 


Aquí tiene un programa que utiliza LET para definir 
dos variables de cadena. 


19 LET AS = "REGENT" 
20 LET BS = "STREET" 
30 LET CS = AS+BS 


4p) LET N = 10 
5Q PRINT "¿QUIEN VIVE EN ";N;CS;3'""2" 


En la línea 30 reunimos dos variables de cadena 
(concatenamos, solemos decir) y asignamos el conjunto 
a otro nombre de variable. En la línea 50 imprimimos 
toda una serie de datos: cadenas de caracteres, varia- 
bles de cadena y números. Podemos imprimir cualquiera 
de ellos donde queramos dentro de la línea, usando ; , 
o bien TAB. 


¿Y qué podemos hacer con variables de cadena? 


Como acabamos de ver, podemos imprimirlas tantas 
veces como queramos y unirlas como si fueran cuentas 
de un collar utilizando + (- no actúa). También puede 
modificarlas como si se tratase de variables numéri- 
cas. Por ejemplo: 


25 LET AS = "DOWNING" 
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¡Hemos cambiado el contenido de AS! 


Otra cosa que se puede hacer es comparar variables 
de cadena entre sí o con cadenas de caracteres, me- 
diante nuestra vieja amiga IF. Más líneas: 


69 INPUT PS 
79 PRINT, PS 
89 IF PS = "EL PRIMER MINISTRO" THEN GOTO 109 
99 GOTO 59 


199 PRINT, "BIEN" 


En la línea 8f empleamos el signo = para comparar 
la respuesta, introducida como PS, con la cadena "EL 
PRIMER MINISTRO". Recuerde que en BASIC = significa 
"exactamente igual";  ¡letras, espacios y signos de 
puntuación deben ser idénticos!. Ejecute el programa y 
modifique PS para comprobarlo. Luego borre la línea 90 
del programa y añada: 


89 IF PS <> "EL PRIMER MINISTRO" THEN GOTO 59 
Ocasionalmente recurrimos a > y < para comparar va- 
riables de cadena. El siguiente programa muestra lo 


que ocurre: 


19 PRINT "TECLEA UNA PALABRA" 


20 INPUT AS 
30 PRINT "AHORA OTRA" 
40 INPUT BS 


50 PRINT, AS; "ESTA"; 

6QY IF AS > BS THEN GOTO 100 

70 PRINT "ANTES"; 

8Y$ GOTO 119 

1090 PRINT "DESPUES"; 

119 PRINT BS, "EN EL DICCIONARIO" 


Ejecute el programa introduciendo ARCO y Z00 prime- 
ro, y luego ABRACADABRA y AARDVARK. Ahora ya sabe lo 
que significa > cuando se aplica a cadenas. 


Con este capítulo nuestras posibilidades de progra- 
mación han dado un gran paso adelante. Aquí tiene un 
programa sencillo para que practique: 
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Ejercicio 18.1 Rellenar un formulario 


Escriba un programa que pregunte a alguien por su 
nombre, edad y lugar donde vive. Imprima la informa- 
ción y dé las gracias cortésmente. 


De nuevo la impresora 


Ahora que sabemos como imprimir sobre pantalla nú- 
meros, Cadenas de caracteres y variables de cadena, 
utilizando como controles los signos de puntuación y 
TAB, es interesante recordar que con la misma facili- 
dad pueden imprimirse sobre papel. Necesitaremos la 
impresora ZX, que tendrá que conectarse antes de en- 
chufar, y utilizaremos LPRINT en lugar de PRINT. Este 
programa escribe los números impares sobre la pantalla 
y los pares sobre papel: 


19 FOR J = 1 TO 20 

2Q IF 3/2 = INT (3/2) THEN GOTO 100 
30 PRINT J 

40 GOTO 200 

100 LPRINT J 

200 NEXT J 


Tras ejecutarlo, cambie una línea así: 
100 LPRINT 3; " "; 


Ahora estamos haciendo que el ZX81 imprima los nú- 
meros pares en una línea. Observe como la impresora 
los guarda hasta el final del programa y entonces los 
imprime todos de una vez. La impresora ZX almacena el 
contenido de los JPRINT en una pequeña memoria, deno- 
minada buffer, hasta que tenga una razón para impri- 
mirlo y pasar a la línea siguiente. Por ejemplo: 


Fin de programa 
Línea llena 
Ultima LPRINT no seguida por ; 0, 


TAB n inferior a la posición de impresión: actual. 
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En este capítulo hemos aprendido ... 
Instrucciones 


LET para definir variables de cadena. 


INPUT para detener el programa e introducir una 
variable de cadena. 


LPRINT para imprimir sobre papel, usando la im- 
presora lZX. 
Otros 
Impresión y concatenación de variables de cade- 
na. 


Comparación de variables de cadena y cadenas de 
caracteres mediante la instruccion IF y los 
SIQhOS =, "Sy 250. <, 
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Cambio de velocidad, 
parada y pausa 


Hasta aquí, todos los programas de este libro pue- 
den funcionar en el ZX81 y en el ZX80 (con 8K ROM). No 
obstante, mientras los propietarios del ZX81 habrán 
visto en pantalla como progresa la ejecución de los 
programas, los usuarios del ZX80 habrán tenido que 
permanecer sentados frente a una pantalla totalmente 
gris, esperando la salida final. 


Con un Z¿X8l puede operar igual que con el /X80 me- 
diante el comando FAST; entonces trabajará cuatro ve- 
ces más rapido que en el modo usual, SLOW. En cual- 
quier caso usted tiene la posibilidad de elegir utili- 
zando FAST y SLOW como instrucciones en sus programas. 
En el ejemplo que sigue podrá comparar el trabajo en 
modo FAST y en SLOW: 


19 FAST 
199 CLS 
119 FOR J 
12 LET C 
139 PRINT 
14 NEXT J 
209 STOP 
210 SLOW 
22 GOTO 100 


1 TO 40 
EXP (LN I/3) 


> 


Gil! 


Primero el programa resuelve un conjunto de 4Q raí- 
ces cubicas en modo FAST y mas tarde, una vez que to- 
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das están calculadas, las muestra en pantalla (gracias 
a STOP). Si ahora pulsa CONT, cambiará a modo SLOW y 
repetirá el trabajo. 


La elección entre FAST o SLOW es un asunto de pre- 
ferencias personales. No obstante, aquí tiene una guía 
orientativa: 


FAST es preferible: 
En cálculos complicados. 


En salidas por pantalla tediosas. 


En programación, suponiendo que no le moleste 
el centelleo de la pantalla cada vez que toca 
una tecla. 


SLOW es preferible: 


En gran número de programas, especialmente los 
que usan graficos. 


SLOW es necesario (en otras palabras, con el ZX80 
no puede hacerse): 


En programas que incluyen gráficos móviles, pe- 
lotas que botan, palabras que centellean y co- 
sas de este estilo. 


A propósito, cuando usted guarda un programa queda 
también registrado el modo en que se encontraba el 
ZX81, tanto si era FAST como SLOW. Asegúrese de que se 
encuentra en el modo que usted desea. 


Detenga su programa 


He aquí una serie de hechos que hacen que se deten- 
ga la ejecucion de un programa: 


(1) Se ha llegado al final y el ordenador queda pa- 
rado con un código Q/n en pantalla. 


(2) El operador ha pulsado BREAK y lo ha detenido 
con un código D/n visible. 
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(3) Hay un STOP en una línea de programa. En este 
caso el código es 9/n. 


(4) Ha agotado todas las líneas disponibles en pan- 
talla. El código es 5/n. 


(5) Algún error ha ocasionado la parada. Son varios 
los códigos posibles. 


(6) Ha llegado a una instrucción INPUT y está espe- 
rando que se introduzca un número o una cadena. 


Este último es el más útil. Puede emplearlo para 
detener el programa, observar la pantalla y reiniciar 
cuando lo desee. Vea el programa siguiente, que mues- 
tra lo rápido que crecen las bacterias bajo condicio- 
nes favorables. Es típico que se dupliquen cada 30 mi- 
nutos, aunque no tenemos en cuenta que también se que- 
dan sin comida o mueren. 


19 LETN=1 
2Q LETT=Q 

30 CLS 

44) PRINT T; "HORAS QUE HAN PASADO" 

SY PRINT,""SU CULTIVO CONTIENE";N;"BACTERIAS" 
60 LET T= T+0.5 

79 LETN= 2*N 

89 PRINT,,,, "PULSE NEWLINE PARA CONTINUAR" 
90 INPUT AS 

199 GOTO 30 


Vea que podemos introducir cualquier cosa en la lí- 
nea 9, aunque la cadena vacía (simplemente tecleando 
NEWLINE) ya basta para reanudar. 


Ramificación y protección de programas 


Podemos recurrir a una técnica similar para dar al 
usuario la posibilidad de dirigirse a diferentes par- 
tes del programa: 


100 PRINT "TECLEE SI O NO" 
110 INPUT AS 
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12f IF AS = "SI" THEN GOTO 209 
140 PRINT "USTED HA TECLEADO NO" 
159 STOP 

200 PRINT "USTED HA TECLEADO SI" 


Ejecute el programa y siga las instrucciones intro- 
duciendo SI o NO obedientemente. Luego haga una trave- 
sura y teclee PATO DONALD. El programa afirmará re- 
sueltamente: "USTED HA TECLEADO NO". 


Una advertencia. Este mundo está lleno de listillos 
dispuestos a tratar de que el ordenador parezca tonto. 
También hay que tener cuidado con los novatos, aunque 
éstos suelen escarmentar cuando lo único que consiguen 
es un mensaje de error tras otro y tienen que empezar 
de nuevo cada vez. Todo programador debe responsabili- 
zarse de inmunizar sus programas contra bromistas y 
gamberros en la medida de lo posible. Es algo difícil 
con una memoria de 1K, pero al menos recuerde este 
principio para más adelante. 


Corrijamos el último programa añadiendo: 
130 IF AS <> "NO" THEN GOTO 110 


Ahora está mucho mejor. Al final del capítulo tiene 
dos diagramas de flujo que dejan claro lo que sucede 
en cada versión. Y ahora le toca a usted. 


Ejercicio 19.1 Elegir números 


Escriba un programa, a prueba de graciosos, que pi- 
da un número entero entre 1 y 100, y lo imprima junto 
a su cuadrado. Incluya instrucciones que garanticen 
que realmente es entero y que está comprendido entre 1 
y 100. Existe un input erróneo contra el que usted aún 
no puede defenderse. ¿Cual es?. 


Pausas en un programa 


El ZX81 dispone de una instrucción para realizar 
pausas. Vea como trabaja: 
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14 PRINT "¿CUANTO?" 

2Q PRINT "TECLEE EL NUMERO DE SEGUNDOS" 
30 INPUT S 

4) PRINT S;"EMPIEZA LA SEGUNDA PAUSA" 
50 PAUSE S*50 

60 PRINT "HA TERMINADO" 


La instrucción PAUSE n genera una pausa equivalente 
a n ciclos de TV (50 por segundo en el Reino Unido). 
Trabaja en los modos SLOW o FAST, pero en FAST o bien 
con el 7X80 el manual recomienda que a continuación de 
una PAUSE sitúe la siguiente instrucción para no per- 
der el programa: 


Número de línea POKE 16437,255 


A mí no se me ha presentado nunca este problema con 
PAUSE en modo FAST, pero usted queda advertido. No se 
pueden hacer pausas superiores a 32767 ciclos de TV 
(unos 11 minutos), y si n es superior a ese número la 
pausa se alargará indefinidamente. Por otra parte, si 
pulsa cualquier tecla durante una pausa el programa 
reinicia inmediatamente; por tanto esto constituye 
otro modo de detener un programa para leer la panta- 
lla. 


200 PRINT "PULSE CUALQUIER TECLA PARA CONTINUAR" 
210 PAUSE 40000 

22 PRINT "VUELTA AL TRABAJO" 

230 GOTO 229 


En este capítulo hemos aprendido ... 


Comandos 


FAST para situar al ZX81 en modo FAST. 
SLOW para devolver al ZX81 al modo SLOW. 


Instrucciones 


FAST y SLOW igual que antes. 


PAUSE n para hacer una pausa. 
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Otros 


Cuándo se utilizan los modos FAST y SLOW. 


INPUT o PAUSE para detenciones temporales del 
programa. 


Ramificar el programa bajo el control de una 
cadena a introducir por el usuario. 


Protección de programas. 


KK KK A 


Programa SI/NO (1) Versión vulnerable. 


INICIO 


INTRODUZCA 
RESPUESTA 


OTRA COSA 


MPRIME 


I 
TECLEO NO 


IMPRIME 
FECLEO. ST 
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Programa SI/NO (2) Versión a prueba de graciosos. 


INICIO 
IMPRIME 
TECLEE SI/NO 
INTRODUZCA 
RESPUESTA 


IMPRIME 
TECLEO NO 


IMPRIME 
TECLEO SI 
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Un negocio incierto 


Números aleatorios 


Existe un generador de números aleatorios muy sen- 
cillo que todos nosotros hemos utilizado alguna vez: 
el dado. Por supuesto, él también obedece ciertas nor- 
mas. Sólo puede dar números del 1 al 6. Salvo que esté 
trucado o sea defectuoso, cada uno de los números 
tiene la misma probabilidad de salir. Finalmente, tra- 
táandose de un simple trozo de madera o plástico, no se 
ve afectado por nada que haya ocurrido antes. Estas 
pueden ser también las normas generales para los núme- 
ros aleatorios: 


(1) Un número aleatorio es uno extraído de un con- 
junto dado de numeros. 


(2) Cada número del conjunto tiene la misma proba- 
bilidad de ser extraído. 


(3) La extracción no se ve afectada en ningún sen- 
tido por extracciones anteriores. 


El ZX81 dispone de una función que genera números 
aleatorios: RND. Probémosla: 


199 FOR J = 1 TO 2P 
110 PRINT RND 
129 NEXT J 
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Ejecútelo varias veces. ¿Cuál es el resultado?. 
Conjuntos de 2f números, mayores que ( y menores que 1 
y que parecen realmente aleatorios. De hecho son núme- 
ros seudoaleatorios. Cada uno de ellos se calcula in- 
geniosamente a partir del anterior, con lo que las re- 
glas (1) y (2) se respetan. No obstante, siempre em- 
piezan con el mismo número matriz; cada vez que se co- 
necta el 7X81 la serie se repite (puede comprobarlo si 
lo desea). Jugar con un dado que dé una serie fija de 
resultados debemos reconocer que conduce a un final 
que puede predecirse. Afortunadamente el ZX81 también 
tiene una instrucción que establece un primer número 
"matriz" aleatorio: 


14 RAND 


Ahora obtendrá un conjunto de números aleatorios 
diferente cada vez que conecte y ejecute. 


Si queremos que el ZX8l actúe como un dado, ¿cómo 
vamos a convertir los valores de RND en enteros del 1 
al 6?. Vea esto: 


Conjunto de números 
generado por 


RND 

RND * 6 e 
RND * 6 + 1 E e de POE 
INT (RND * 6 + 1) 6 


Por tanto, cambie la línea 110 del programa, así: 
11f PRINT INT (RND*6+1) 


Ahora sí que parece que estemos tirando un dado. Si 
tomamos RND, lo multiplicamos por un número y le suma- 
mos otro, podemos convertirlo en otro número situado 
dentro de los límites que deseemos. 
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Ejercicio 20.1 Ruleta 


Escriba un programa para representar en pantalla 
los números de la ruleta, que varían de Q a 36. Veri- 
fique que Q y 36 aparecen realmente. 


Al final del capítulo 11 vimos varias instrucciones 
que necesitaban números para operar. A menudo pueden 
utilizarse con números aleatorios, como este programa 
para crear constelaciones: 


30 NEXT 3 
4 PAUSE 50 
50 CLS 

640 GOTO 10 


Recuerde que no necesitamos hacer nada con RND*31 
en la línea 20, puesto que será automáticamente redon- 
deado hasta el próximo entero entre Q y 31. 


De la misma manera podemos usar los números aleato- 
rios para definir el tamaño de un bucle FOR/NEXT, 
aunque en este caso no se produce redondeo y es acon- 
sejable convertir los números aleatorios en enteros. 
Practíquelo: 


Ejercicio 20.2 Rectángulo aleatorio 


Escriba un programa que se valga de bucles FOR/NEXT 
anidados para dibujar un rectángulo cuyas dimensiones 
sean aleatorias (su longitud y su altura deben estar 
comprendidas entre 1 y 15). 


Ramificación aleatoria 


Hemos aprendido a detener la ejecución de un pro- 
grama y que éste ofrezca al usuario la posibilidad de 
elegir entre dos o más caminos para continuar. Si re- 
currimos a RND podemos sustituir la elección volunta- 
ria por una aleatoria. Aquí tiene un ejemplo: 
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19 
20 
39 
40 


> 
64 
79 
199 
200 
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PRINT "USTED REGRESA A CASA" 


IF RND < (.5 THEN GOTO 109 

FOR J = 1 TO 15 

PRINT TAB J; " “MZA 
(GRAPHICS/SHIFT YYAHYY) 

NEXT 9 

PRINT,, "USTED TOMO EL CAMINO BONITO" 

GOTO 299 

PRINT,, "ATAJO" 

PRINT,, "HA LLEGADO A CASA" 


Otra forma de ramificación aleatoria consiste en 
combinar GOTO con un número aleatorio. Aquí tiene un 
programa que saca bloques gráficos de una bolsa que 
contiene el mismo número de bloques negros, grises y 
arlequinados. 


59 

60 

79 

199 
119 
129 
130 
140 
200 
210 
220 
239 
24 
300 
319 
320 
330 


FOR J = Y TO 5 

LET X = 100 * INT (RND*3+1) 

GOTO X 

FOR K = 1 TO 3 

PRINT TAB 5*J; " HN " (3 GRAPHICS/SPACE) 
NEXT K 

NEXT J 

STOP 

FOR K = 1 TO 3 

PRINT TAB 5*I; "SS" (3 GRAPHICS/SHIFT H) 
NEXT K | 

NEXT J 

STOP 

FOR K = 1 TO 3 

PRINT TAB 5*J; " "ww" " (3 GRAPHICS/SHIFT Y) 
NEXT K 

NEXT  J 


Observe que la última parte del programa se repite 
3 veces en las líneas 100, 200 y 300. Es un mal pro- 
grama que despilfarra la memoria. En el próximo capí- 
tulo trataremos de mejorarlo. 
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En este capítulo hemos aprendido ... 
Instrucciones 


RAND para obtener un número-matriz aleatorio 
para el calculo de numeros aleatorios. 


Funciones 


RND, conduce a un número seudoaleatorio situado 
entre Y y 1. 


Otros 


Empleo de números aleatorios. 


Ramificaciones aleatorias en un programa. 
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Ve, pero vuelve pronto 


Subrutinas 


La instrucción GOSUB n es similar a GOTO n y resuita 
extremadamente útil. Se encarga de decir esto al ZX81: 


(1) Ve a la línea n del programa. 
(2) Haz lo que se indica allí. 


(3) Vuelve al punto de partida. 
Aquí tiene una demostración sencilla: 


190 PRINT "SUBRUTINA DEMOSTRACION" 

119 PRINT, "PUNTO DE PARTIDA PARA SUBR 1000" 
12f GOSUB 1000 

130 PRINT "DE VUELTA" 

140 PRINT, "HACIA LA SUBR 2000" 

159 GOSUB 2000 

160 PRINT "DE VUELTA OTRA VEZ" 


Ejecútelo y vea qué pasa. Obedece las líneas 100 a 
12), se va a la línea 10/00, no la encuentra y se para. 
Tenemos que escribir las subrutinas: 


1900 PRINT TAB 5; "ESTA ES LA SUBR 1000" 
2000 PRINT TAB 5; "ESTAMOS EN LA SUBR 2000" 
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Aún falta algo. Fue a la línea 1000 como estaba 
previsto, no regresó, continuó hacia la línea 2000 y 
se detuvo. Necesitamos una instrucción que ordene el 
regreso desde cada subrutina: RETURN. También pondre- 
mos un STOP que actúe de barrera entre el programa 
principal y las subrutinas: 


900 STOP 

10900 PRINT TAB 5;"ESTA ES LA SUBR 1000" 
1010 RETURN 

2000 PRINT TAB 5; "ESTAMOS EN LA SUBR 2000" 
20109 RETURN 


Ejecute el programa y asegúrese de que funciona. Es 
útil escribir las líneas del programa en el orden de 
ejecucion: 


100, 110, 120, 1000, 1010, 130, 140 
150, 2000, 2010, 160, 200 


Ahora que ya sabemos algo sobre subrutinas podemos 
dar algunas normas: 


(1) GOSUB n dirige al ZX81 directamente a la línea 
n, 0 a la siguiente si n no existe. El valor n 
puede consistir en un número, una variable o 
una expresión. 


(2) El ZX81 ejecuta la subrutina igual que si fuese 
una parte del programa principal. 


(3) La subrutina tiene que finalizar con una ins- 
trucción RETURN, que envía al ZX81l a la línea 
siguiente al GOSUB n de partida. 


(4) Se puede pasar de una subrutina a otra, dando 
por supuesto que usted tiene una idea clara de 
lo que está haciendo. 


(5) Con frecuencia es útil emplear GOSUB condicio- 
nales en un programa: 


Si (IF) se cumple tal condición... entonces 
vete a la línea n (THEN GOSUB n). 
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(6) Sitúe todas las subrutinas al final del progra- 
ma y ponga una instrucción STOP entre ellas y 
el programa principal para evitar que sean in- 
debidamente ejecutadas. 


A veces resulta conveniente incluir un GOSUB en un 
bucle. Aquí tiene una nueva versión del programa de 
extracción de bloques del capítulo anterior. Es mucho 
más corto debido al empleo de GOSUB. 


19 FOR J = Y TO 5 

20 LET X= 100 * INT (RND + 3 + 1) 
30 FOR K = 1 TO 3 

40 GOSUB X 

50 NEXT K 

60 NEXT 3 

9H STOP 


104P PRINT TAB 5*J;'" Mi ' (3 GCRAPHICS/SPACE) 
110 RETURN 

200 PRINT TAB 5%*J;" EZ " (3 GRAPHICS/SHIFT H) 
210 RETURN 

300 PRINT TAB 5%J;" "wn " (3 GRAPHICS/SHIFT Y) 
310 RETURN 


¿Cuándo deben utilizarse las subrutinas? 


Como hemos visto, es aconsejable recurrir al empleo 
de subrutinas cuando tenemos que abandonar el programa 
principal en varios puntos para realizar la misma ope- 
ración cada vez. Las subrutinas ahorran memoria al or- 
denador y tiempo y esfuerzo al programador. 


Otra buena razón para usar subrutinas es hacer mas 
inteligibles los programas largos. Podemos fraccionar- 
los en dos tipos mas cortos: 


Un programa principal, que puede ser corto. 
Un conjunto de subrutinas, etiquetadas adecua- 
damente con instrucciones REM. 


También es de gran ayuda mantener listados con to- 
dos los números y títulos de las subrutinas y de los 
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nombres de variable que hayamos incluido en nuestros 
programas. 


Finalmente, a veces se escriben fragmentos de pro- 
gramas que pueden utilizarse más tarde en otros luga- 
res. Esto resulta mucho más sencillo si están escritos 
en forma de subrutinas, susceptibles de ser transferi- 
das en bloque a otros programas. 


Ejercicio 21.1 Volumen de un depósito 


En este ejercicio supondremos que los depósitos de 
agua son cúbicos o cilíndricos. Escriba un programa 
que permita al usuario elegir una de estas dos formas 
(rechazando las demás), introducir las dimensiones y 
calcular el volumen de acuerdo con las siguientes fór- 
mulas: 


Volumen del cubo = lado? 


Volumen del cilindro = alturaxTX (diámetro/2)? 


En este capítulo hemos aprendido ... 
Instrucciones 
GOSUB n para dirigir al /X81 a una subrutina 


que empieza en la línea n. 


RETURN al final de una subrutina sirve para ha- 
cer que el ZX81 regrese y continúe ejecutan- 
do el programa principal. 


STOP para establecer una separación entre las 
subrutinas y el programa principal. 
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Aceleremos la entrada 


Hasta ahora, para introducir números o cadenas he- 
mos tenido que detener el programa, teclearlas y pul- 
sar NEWLINE. Una nueva función, INKEYS, nos permite 
hacer eso mismo más rápida y cómodamente, aunque no 
sin algunas limitaciones (por ejemplo, necesita que el 
7X81l trabaje en modo SLOW). 


Cuando el ZX81l se encuentra con INKEYS, inmediata- 
mente verifica la situación de todo el teclado. Si hay 
alguna tecla presionada, con o sin SHIFT, el carácter 
correspondiente se asigna a una variable de cadena de 
un solo carácter, etiquetada como INKEYS. Pruébelo: 


100 PRINT INKEYS; 


¡Ciertamente se trata de una laboriosa manera de 
escribir!. Usted ha tenido que mantener presionada la 
tecla NEWLINE, que a su vez nos ha devuelto un ?. Aho- 
ra vamos a incluir INKEYS en un bucle para que podamos 
retirar el dedo de NEWL INE. 


119 GOTO 100 


Diviértase un poco tocando letras y letras, pero 
recuerde que por cada carácter que aparezca en panta- 
lla, el ZX81 ha explorado todas las teclas y asignado 
un nuevo carácter a INKEYS. A propósito, usted no pue- 
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de pulsar SPACE o £: el ZX81 las tomaría como si fue- 
sen BREAK. 


Supongo que se ha dado cuenta de que INKEYS es algo 
realmente efímero. Siempre que usted presione INKEYS 
en un programa, se genera uno nuevo. Por tanto tendre- 
mos que recurrir a algunos trucos para utilizarlo. 


Ramificación de programas 


Aquí tiene un ejemplo rápido y sencillo de programa 
en el que el usuario puede elegir el camino tras una 
ramificación. Es similar al del capítulo 19: 


19 PRINT "¿SIGUE O PARA?" 

20 PRINT. "PULSE S O P" 

30 IF INKEYS = "S'" THEN GOTO 200 
40 IF INKEYS = "P" THEN GOTO 100 


5Q GOTO 30 
1090 PRINT."HA PARADO" 
110 STOP 


200 PRINT. "CONTINUA" 


¡Casi perfecto!. Pulse cualquier tecla que desee y 
el ZX81 ejecutará las instrucciones 30, 40 y 50 hasta 
que sean presionadas S o P. 


Una grabación permanente de INKEYS 


En el programa anterior se empleaba INKEYS y des- 
pués se olvidaba. No obstante, hay ocasiones en que 
necesitamos una grabación permanente del mismo, como 
ésta por ejemplo: 


19 PRINT "PULSE CUALQUIER TECLA" 
190 TF INKEYS <> " '" THEN GOTO 109 
119 IF INKEYS = " " THEN GOTO 119 
129 LET AS = INKEYS 

139 PRINT "SU INKEYS ERA"; AS 


. . Id £ . 
Esto requiere una explicacion. La linea 100 retiene 
el programa mientras no se presione alguna tecla, dan- 
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dole a usted la oportunidad de dejar de oprimir la te- 
cla NEWLINE. Luego, la línea 110 lo para mientras se 
pulsa una tecla y finalmente la línea 12f asigna el 
carácter INKEYS a AS. Ejecute el programa y teclee los 
comandos: 


PRINT INKEYS (Ha desaparecido) 
PRINT AS (Permanece todavía) 


Añadiendo algunas cosas podemos utilizar INKEYS pa- 
ra introducir cadenas de cualquier longitud, previa- 
mente definida. 


19 PRINT "TECLEE UNA PALABRA DE TRES LETRAS" 
20: LEFAS:= 0" 

199 FOR J = 1 TO 3 

119 IF INKEYS <> " " THEN GOTO 110 


129 IF INKEYS = " " THEN GOTO 120 
130 LET AS = AS + INKEYS 
140 NEXT J 


159 PRINT "SU PALABRA ERA";AS 


Se puede jugar con INKEYS para introducir cadenas 
de longitud indeterminada, pero ello no resulta más 
ventajoso que usar INPUT. 


¿Y respecto a los números? 


Si en el programa anterior se introduce 123, el re- 
sultado parece un número, pero en realidad es la cade- 
na "123" razon por la cual no puede utilizarse en ope- 
raciones matemáticas. Por fortuna, el ZX81-dispone de 
una función que convierte cadenas en números. Modifi- 
que y amplíe el programa, así: 


159 PRINT,, "CADENA AS","VAL AS" 
169 PRINT AS, VAL AS 
17P GOTO 19 


Pruebe utilizando cadenas de todas clases, incluso 
algunas como éstas: "123", "4.5", "6+7", "89A". 
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Supongo que habrá descubierto ya las normas de tra- 
bajo. de VAL: 


(1) Si una cadena está totalmente formada por ca- 
racteres que pueden utilizarse en una expresión 
aritmética, VAL calculará el resultado de la 
expresión. Estos caracteres son: 


Números 

Nombres de variable previamente definidas 
Operadores 

Punto 

Funciones 

Paréntesis 


(2) Cualquier otro tipo de carácter ocasionará una 
parada con código de error C/n o 2/n. 


(3) Se puede grabar una cadena VAL asignandola a 
una variable numérica. 


LET A = VAL AS 


El ZX81 también tiene otra función que hace exacta- 
mente lo contrario que VAL. Se conoce como STRS. 


STRS número = "número" 
STRS 567 = "567" 


Por ahora nos contentamos con haber mencionado la 
función STRS. Ya la estudiaremos mas tarde. 


Aquí tiene un conocido programa para que usted lo 
escriba utilizando INKEYS y VAL. 


Ejercicio 22.1 Adivine un número 


Escriba un programa que genere un número aleatorio 
entre 1 y 99. Pida al usuario que trate de adivinarlo 
y luego dígale si el número que ha tecleado es dema- 
siado alto, demasiado bajo o correcto. Si sólo dispone 
de 1K de memoria se verá obligado a limitar a 8 el 
número de tentativas. 
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En este capítulo hemos aprendido ... 
Funciones 


INKEYS para introducir una cadena de un solo 
carácter sin detener la ejecución. 
VAL para convertir una cadena en un número. 


STRS para convertir un número en una cadena. 
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Gráficos 


En el capítulo 17 ya hicimos gráficos sencillos me- 
diante la instrucción PRINT y los bloques gráficos en- 
trecomillados. Cada bloque o elemento gráfico constaba 
de cuatro cuadraditos (pixels) que podían ser negros, 
blancos o grises. 


Trazado de puntos 


Podemos emplear la instrucción PLOT X,Y para situar 
un pixel negro en cualquier punto de la pantalla. Es- 
tudie este programa de demostración: 


20 PRINT "DEMOSTRACION DE PLOT X,Y" 

30 PRINT, "0 A 63 HORIZONTALMENTE ES X" 
40 PRINT, "Y A 43 VERTICALMENTE ES Y" 
5Q PRINT, "INTRODUZCA X (Q A 63) X = "; 
60 INPUT X 

79 PRINT X,, "AHORA Y (Q A 43)" 

84 INPUT Y 

9 CLS 

100 PLOT X,Y 

110 PRINT X;",";Y 

12 INPUT AS 

130 CLS 

14 GOTO 50 
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Si ejecuta el programa verá que se explica por si 
mismo. Observe que la posición PRINT de la línea 110 
está inmediatamente después de la posición PLOT de la 
línea 100. 


La instrucción CLS de la línea 130 es algo así como 
un borrador que recorre toda la pizarra para borrar un 
solo punto. Podemos hacer lo mismo de un modo menos 
rudimentario utilizando UNPLOT, el inverso de PLOT. 


139 UNPLOT X, Y 


Observe otra vez la posición de PRINT, situada in- 
mediatamente después de la posición de UNPLOT. 


Trazado de líneas 


Una mancha negra aislada no es algo demasiado útil, 
pero vea que pasa cuando la introducimos en un bucle: 


19 FOR J = Y TO 63 
2Q PLOT 3,0 
9 NEXT 3 


Es el principio de un marco. Ahora necesitamos una 
línea horizontal en la parte alta de la pantalla. ¿Se 
atreve a hacerlo? ¡Pues claro que si!. 


30 PLOT J,43 


El resto lo dejo para usted. 


Ejercicio 23.1 Líneas verticales 


Añada cuatro instrucciones más al programa anterior 
para dibujar las dos líneas verticales que faltan para 
completar el marco. Por cierto, aquí se plantean pro- 
blemas con las memorias de 1K. 


Las líneas oblicuas ya son otra cosa. En ningún ca- 
so podran quedarnos tan bien. De todos modos, veamos 
qué es lo que podemos hacer: 
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J 
PLOT J 
PLOT 3 
PLOT Y 
PLOT 4 
PLOT J 
PLOT I 

3 


190 NEXT 


Introduzca las sentencias 20 a 70 una a una y eje- 
cute cada vez para ver qué línea es dibujada en panta- 
lla por cada instrucción. 


Si lo desea puede utilizar PLOT en bucles anidados 
para ennegrecer franjas completas de la pantalla, aun- 
que este procedimiento resulta un poco lento. 


19 
29 
30 
40 
50 


FOR JJ = Y TO 63 
FOR K <= Q TO 41 
PLOT I,K 

NEXT K 

NEXT J 


Podemos borrar la pantalla por el método usual: 


6Y CLS 


No obstante, si reducimos el tamaño del rectángulo 
para liberar memoria, borraremos mas comodamente uti- 


lizando el método del "queso danes": 


LET K-=0Q 
FOR J.=8 
FOR K=0Q 
PLOT, 
NEXT K 
NEXT J 
LET X= RND*43 
UNPLOT X,RND * (X +1) 
GOTO 79 
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Combinemos PRINT con gráficos 


Como ya sabemos, la posición PRINT sigue inmediata- 
mente al último punto PLOT o UNPLOT, lo que en ocasio- 
nes puede ser un inconveniente. Por suerte, el ZX81 
nos permite imprimir a voluntad en cualquier punto me- 
diante la instrucción: 


PRINT AT número de línea, número de columna, cadena 
o número. 


Los números de línea van desde Y en la parte supe- 
rior de la pantalla, hasta 21 en la inferior. Los nú- 
meros de columna son los mismos que para TAB, del Q al 
31. Aquí tiene un juego para que se familiarice con 
PRINT AT: 


19 PRINT TAB 7;"DEMOSTRACION DE PRINT AT" 
2Q PAUSE 200 

199 CLS 

110 PRINT "PONGA UN DEDO EN ESTOS PUNTOS" 
12 PAUSE 200 

1309 LET L = INT (RND * 22) 

140 LET C = INT (RND * 32) 

150 CLS 

160 PRINT. "PRINT: AT 5: Ls * Ms € 

170 PAUSE 400 

189 PRINT AT L, C; "*" 

19% GOTO 120 


Recuerde que cualquier cosa que se imprima se hará 
inmediatamente después del punto PRINT AT, de acuerdo 
con las normas de puntuación usuales. Si desea retro- 
ceder tendrá que utilizar otro PRINT AT. 


Otra aplicación de PRINT AT es el borrado de puntos 
concretos de la pantalla. Todo lo que tiene que hacer 
es imprimir blancos sobre los puntos que desea borrar. 


109 FOR J = Q TO 21 

110 PRINT AT 3,3;3 

12 NEXT 3 

200 PRINT AT (,4;"BORREMOS LOS NUMEROS IMPARES" 
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210 FOR -3 = 1 TO 21 STEP 2 
22 PRINT AT 3,3;" él 
23 NEXT J 


Aquí tiene unos ejercicios sobre PLOT y PRINT AT. 


Ejercicio 23.2 Tarjeta de visita 


Escriba un programa que imprima una tarjeta de vi- 
sita negra en el centro de la pantalla, con su nombre 
y dirección en letras blancas. 


Ejercicio 23.3 Subrutina "continuamos" 


Se trata de una subrutina muy útil para detener el 
programa hasta que presionemos NEWLINE. Haga que se 
imprima el mensaje "PULSE NEWLINE" en la parte infe- 
rior derecha de la pantalla, haga una pausa con INPUT, 
borre la línea inferior y ponga un RETURN. 


Gráficos con la impresora ZX 


Los gráficos sencillos del capítulo 17, en los que 
la impresión se realiza línea a línea, pueden ser ob- 
tenidos sobre papel simplemente cambiando las instruc- 
ciones PRINT por LPRINT. Por el contrario, LPRINT AT 
no funciona; viene a ser más o menos igual que LPRINT 
TAB. Si medita un poco sobre ello se dará cuenta de 
que PRINT AT puede pedirle al ZX81 que retroceda sobre 
una línea o sobre líneas anteriores, y la impresora ZX 
no puede hacer cosas así. Tampoco PLOT sirve con ella. 
¿Entonces qué debemos hacer para registrar nuestros 
bonitos graficos?. 


La respuesta se halla en el capítulo 15: sencilla- 
mente utilice la palabra clave COPY, ya sea como ins- 
trucción, ya como.comando, y la impresora ZX hará una 
copia fiel del contenido de la pantalla. 
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En este capítulo hemos aprendido ... 
Instrucciones 
PLOT X,Y para situar un pixel negro en la posi- 
ción de coordenadas X,Y. 


UNPLOT X,Y borra un pixel de coordenadas X,Y. 


PRINT AT número de línea, número de columna; se 
usa para imprimir algo en cierta posición, 
con independencia de lo que se haya impreso 
anteriomente. 


COPY para obtener un registro sobre papel del 
contenido de la pantalla. 
Otros 
Bucles con PLOT para dibujar líneas y bloques 
en la pantalla. 


PRINT AT línea, columna;"  " para borrar zonas 
de la pantalla. 


24 


Juguemos con las cadenas 


Hay una teoría que dice que un grupo de chimpancés 
llegarían a escribir las obras completas de Shakespea- 
re, con la condición de que dispusieran de tiempo y de 
papel ilimitados. Probemos: 


19 RAND 

9H) CLS 

100 FOR J= 1 TO 80 

200 FOR K-= 1 TO INT (RND*8+1) 
210 LET A = INT (RND* 26 + 38) 
220 PRINT CHRS A; 

300 NEXT k 


310 IF RND < .07 THEN PRINT "."; 
350) PRINT " "; 

400 NEXT J 

500 PRINT 

510 PRINT,, "PULSE NEWL INE" 

52 INPUT AS 

530 GOTO 90 


Supongo que esa teoría es cierta, pero ¡hace falta 
paciencia para comprobarlo!. Las líneas interesantes 
del programa son la 21f, que genera un número aleato- 
rio entre 38 y 63, y la 220 que imprime una nueva fun- 
ción: CHRS. En este capítulo la veremos con amplitud. 
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CHRS A es el carácter cuyo código es el número A. 
Si mira la página 182 del manual de instrucciones, ve- 
rá que los números 38 a 63 son los códigos de las le- 
tras del alfabeto. 


Podemos emplear CHRS para ver cualquier carácter de 
todo el repertorio del ZX81, que son 255 en total. 


19 LET Kk=-0Q 

2Q FOR J-= 1TO8 

30 FOR K-= KkTOK+7. 
40 PRINT CHRS Kk¿"  "; 
5Q NEXT Kk 

60 PRINT,, 

70 NEXT J 

804 PRINT, "PULSE NEWLINE" 
94 INPUT AS 

100 CLS 

119 GOTO 20 


Podrá ver un conjunto de bloques gráficos, números, 
símbolos, letras, palabras clave, funciones y caracte- 
res inversos. La segunda página consiste mayormente en 
interrogantes; se trata de caracteres sin utilidad o 
comandos como NEWLINE que no salen por pantalla. 


Hay dos funciones más que están relacionadas con 
las cadenas y que resultan sumamente utiles: CODE y 
LEN. Este programa esclarece lo que hacen: 


19 PRINT "INTRODUZCA ALGUNAS PALABRAS" 

29 PRINT "WS";TAB 10;"CODE WS";TAB 20;"LEN WS" 
39 INPUT WS 

40  PRINT, WS;TAB 10;CODE WS;TAB 20;LEN WS 

59 GOTO 30 


Ejecute el programa e introduzca palabras tales co- 
mo ASTRO, ARCO, A, BELLO, BIEN, B. Introduzca también 
espacios e incluso una cadena vacía. A estas alturas 
habrá descubierto ya que CODE y una cadena dan "el có- 
digo numérico que corresponde al primer carácter de 
esa Cadena". Y LEN de una cadena es igual "al número 
de caracteres, incluidos los espacios, de que consta 
la cadena"; en otras palabras, su longitud. 
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Fragmentación de cadenas 


El ZX81 dispone de un sencillo pero eficaz procedi- 
miento para trocear cadenas. Tan pronto como se teclea 
una cadena o una variable de cadena, cada carácter va 
siendo numerado con un número correlativo que empieza 
en 1 y acaba en el número que corresponde a LEN. Por 
ejemplo: 


LET Z9 = "HILO" LEN ZS = 4 
7S(1) = "yn 152) = "3" 25(3) = "np" 2S(4) = "pg" 


Podemos 'cortar' los caracteres que queramos de una 
cadena utilizando la funcion:. 


cadena (m TO N) 
Haga la prueba con este programa: 


19 PRINT "DEPORTISTA" 

209 LET AS = "DEPORTISTA" 

199 PRINT "INTRODUZCA DOS NUMEROS DEL 1 AL 10" 
119 PAUSE 300 

129 CLS 

139 INPUT M 

149 INPUT N 

159 PRINT, "DEPORTISTA(";M;"TO"3N3") =";AS(M TO N) 
169 GOTO 139 


Si introduce varios' pares de números verá que el 
primero no debe ser inferior a 1, y el segundo no pue- 
de ser mayor que 10 (LEN "DEPORTISTA" = 10). 


Si lo desea puede cortar una parte de una cadena y 
asignarla a otra variable de cadena, para usarla más 
adelante. Ejecute el programa anterior y teclee estos 
comandos: 


LET BS = AS (2 TO 8) 
PRINT AS,BS 


Es posible que usted sólo necesite un carácter de 
la cadena original. En este caso puede prescindir del 
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TO. Para verlo, teclee los siguientes comandos y otros 
similares: 


PRINT AS (1) PRINT AS (2) PRINT AS (9) 


Nuevamente, el límite inferior es 1, y el superior 
es LEN AS. Utilice ahora este metodo para seleccionar 
e imprimir palabras de diversas maneras: 


19 PRINT "INTRODUZCA UNA PALABRA" 
20 INPUT WS 

30 CLS 

100 FOR J = 1 TO LEN WS 

119 PRINT WS (3);""; 

120 NEXT J 


Hemos respetado el orden original, pero ahora modi- 
fique la línea 100 así: 


199 FOR J = LEN WS TO 1 STEP - 1 


Vea que es la misma palabra pero en orden inverso. 
También podemos servirnos del hecho de que el CODE de 
una letra invertida es mayor en 128 que el CODE de la 
letra original: 


119 PRINT TAB 1;CHRS(CODE WS (3) + 128) 


erdón, ahora las hemos puesto en posición descen- 
der »!. Añada estas líneas para hacer que cada letra 
se vaya a su sitio: 


299 FOR J = 1 TO LEN WS 

210 FOR K = Q TO J-1 

220 PRINT AT LEN WS-J+K,k+1;CHRS (CODE WS (3) +128) 
230 PRINT AT LEN WS -J+K-1,K;"" 

24 NEXT K 

25( NEXT J 


Aquí tiene un ejercicio para que practique y pueda 
cortar cadenas a su gusto. 
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Ejercicio 24.1 CAN 


Vamos a llamar "can" a cualquier palabra que empie- 
ce Oo termine con estas tres letras. Escriba un progra- 
ma que solicite palabras, las verifique, liste aque- 
llas que son "can" y rechace las que no lo son. 


En este capítulo hemos aprendido ... 
Funciones 


CHRS n, que es igual al carácter cuyo código 
numerico es n. 


CODE s es igual al código numérico del primer 
caracter de la cadena s. 


LEN s es el número de caracteres contenidos en 
la cauena Ss. 


s (m TO n) es un fragmento de la cadena s que 
empieza en el caracter m y acaba en el n. 


s (n) es el carácter número n de la cadena s. 


25 


Tablas 


Variables ficticias 


Hemos aprendido la manera de hacer toda clase de 
operaciones con números y con cadenas. A veces necesi- 
tamos disponer de una grabación permanente del número 
o de la cadena originales, para lo cual utilizamos una 
variable ficticia. Aunque las estudiaremos más tarde, 
veamos ahora un ejemplo sencillo: 


19 LETBS ="" 

1040 PRINT "TECLEE UNA PALABRA" 

110 INPUT AS 

12 CLS 

130 PRINT "USTED HA TECLEADO "¿AS 
149 IF AS = BS THEN GOTO 300 

200 PRINT "ESTO ES UN CAMBIO" 

210 PRINT "ERA ";BS;" LA ULTIMA VEZ" 
22 GOTO 400 

300 PRINT "ABURRIDO - IGUAL QUE LA ULTIMA VEZ" 
400 LET BS = AS 

419 GOTO 100 


Tenemos un bucle con INPUT entre las líneas 100 y 
400, y la variable AS cambia cada vez que se ejecuta 
el bucle. Sin embargo, en la línea 400 asignamos AS a 
la variable ficticia BS, de manera que podremos compa- 
rarla con el próximo valor de AS. Por supuesto, pode- 
mos hacer lo mismo con variables numéricas. 
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Tablas numéricas 


Ya sabemos cómo obtener una grabación permanente de 
un número asignándolo a un nombre de variable. Ahora 
suponga que deseamos grabar un conjunto de números que 
tienen algo en común. Por ejemplo, el número de unos, 
doses, treses, cuatros, cincos y seises que han salido 
en un juego de lanzamiento de dados. Una cosa así po- 
demos hacerla definiendo una tabla monodimensional 
mediante la instrucción DIM: 


14 DIM D(6) 


Si ahora ejecutamos este programa, habremos creado 
seis variables: 


D(1) D(2) D(3) D(4) D(5) D(6) 


cada una de las cuales ha sido puesta a cero. Comprué- 
belo tecleando comandos como PRINT D(3). 


Una tabla debe tener un nombre de una sola letra. 
El número de miembros que la integran puede ser cual - 
quiera, con la única restricción de la memoria disponi- 
ble. Cada miembro o elemento se distingue de los demás 
por un subíndice entre paréntesis que es distinto para 
cada uno de ellos y que empieza por 1. Observe que 
D(Q) no existe. 


Veamos un programa en el que se tira un dado 601 ve- 
ces tras una aleatorización previa. 


20 RAND 

109 FOR J = 1 TO 60 

119 LET T = INT (RND*6 + 1) 
200 NEXT J 


Y ahora es cuando intervienen los subíndices. Si en 


una tirada sale un 5, añadiremos uno a D(5), que ex- 
presa el numero de cincos que han salido. 


129 LET-DCT) += D(T) + 1 
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Si, por ejemplo, T es igual a cinco, la línea ante- 
rior equivale a: 


LET D(S) <= 'D(5)*./1 


Si sucede que el próximo valor de T es 3, sumaremos 
l a D(3) y así sucesivamente. Ahora tenemos que impri- 
mir los resultados: 


90 PRINT "ESPERE" 

300 PRINT "69 TIRADAS", 

310 FOR J = 1 TO 6 

320 PRINT TAB 5;D(J)7" "3J¿"S", 
330 NEXT J 


Finalmente, vamos a tener la posibilidad de detener 
la obtención de resultados y volver al DIM de la línea 
10 para poner a cero todas las variables y empezar de 
nuevo: 


400 PRINT "SI QUIERE CONTINUAR PULSE N/L" 
410 INPUT AS 
42H GOTO 10 


Más adelante, cuando veamos los gráficos móviles, 


escribiremos otra vez este programa para obtener un 
juego de competicion. 


Tablas multidimensionales 

Imagine que estamos tratando de alquilar quince ca- 
ravanas en agosto a los veraneantes. Las tenemos dis- 
puestas en tres filas y cinco columnas: 


Columnas 
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Podemos designar una caravana simplemente dando su 
fila y su columna. A título de ejemplo, la caravana A 
es la 1,2 (fila 1 y columna 2). La Bes la 2,4. 


Exactamente lo mismo hace el ZX81 cuando empleamos 
la instrucción DIM: 


19 DIM V(3,5) 


Esta vez al ejecutar el programa tendremos 15 va- 
riables dispuestas en una tabla de 3x5, como las cara- 
vanas anteriores, y con valor cero todas ellas. 


V(1,1) = 9 V(1,2) = 9 etcétera. 


Si ahora acordamos que. V(m,n) = Q significa que una 
caravana está libre y que V(m,n) = 1 quiere decir que 
esa caravana ya está contratada, estaremos en condi- 
ciones de escribir un programa de alquiler de carava- 
nas: 


2) PRINT "¿QUE CARAVANA QUIERE?" 

30 PRINT "¿QUE FILA (DE 1 A 3)?"; 

40 INPUT R 

SY PRINT R 

6f PRINT "¿QUE COLUMNA (DE 1 A 5)2"; 

7% INPUT C 

8Y PRINT C 

99 PAUSE 200 

100 IF V(R,C) = 1 THEN GOTO 200 

110 PRINT ,"LA CARAVANA (";R3","5C5") ESTA LIBRE" 

120 LET V (R,C) = 1 

139 PRINT ,"TRATO HECHO" 

140 PRINT ,"EL SIGUIENTE POR FAVOR - PULSE N/L" 

159 GOTO 220 

200 PRINT "PERDON, LA CARAVANA (";R;3","3C;") NO 
ESTA LIBRE" 

210 PRINT ,"PULSE N/L PARA PROBAR OTRA" 

22M INPUT AS 

230 CLS 

24 GOTO 20 


Si disponemos de memoria suficiente, no estamos li- 
mitados a dos dimensiones. Cada caravana podría alqui- 
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larse uno cualquiera de los doce meses del año, con lo 
que necesitaríamos una tabla de 3x5x12. El programa 
empezaría así: 


19 DIM V(3,5,12) 


¡pero será usted quien tenga que escribir el resto!. 


Aquí tiene un problema sobre tablas. 


Ejercicio 25.1 Toros y vacas 


Se trata de un juego muy conocido en el que hay que 
adivinar un número de cuatro cifras. Tras su pronósti- 
co, usted es informado del número de cifras que acerto 
(toros). El esquema general es éste: 


Se generan cuatro cifras aleatorias entre 1 y 6, y 
se las integra en una tabla de una dimension. 
Se pide al jugador que trate de adivinar el número. 


Ahora se introduce el pronostico como una variable 
de cadena. 


Luego hay que comparar las cifras de la respuesta, 
una por una, con las cifras de la tabla (acuér- 
dese de VAL). 


Se informa al jugador de los toros conseguidos. 


En este capítulo hemos aprendido ... 
Instrucciones 


DIM reserva espacio para una tabla de números y 
la carga con ceros. Por ejemplo, DIM A(n) 
define una tabla de una sola dimensión con n 
miembros, y DIM A(m,n) genera una tabla de 
mxn elementos. 


Otros 


Variables ficticias para que no se pierdan de- 
terminadas variables. 
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Tablas de cadenas 


Hemos tratado las tablas de números en el último 
capítulo. Las tablas de cadenas son muy parecidas. Ya 
sabemos que una variable de cadena es equivalente a 
una cadena de caracteres de una sola dimensión. Por 
ejemplo: 


20 LET. AS <= "ALA" 


Ejecute el programa y teclee estos comandos: 


PRINT AS(1) (esto da A) 
PRINT AS(2) (esto da L) 
PRINT AS(3) (esto da A) 


Si escribimos una instrucción DIM como ésta: 
19 DIM AS(5) 


habremos reservado espacio para una cadena de cinco 
caracteres denominada AS, asignado todos los caracte- 
res a espacios vacíos e insertado la cadena "ALA". Es- 
to puede comprobarse añadiendo: 


30 FOR J = 1 TO 3 
4 FOR K = 1 TO 5 
5Q PRINT AS(K) 

60 NEXT K 
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Hay cinco espacios disponibles, pero únicamente he- 
mos ocupado tres. Ahora vamos a cambiar la instruccion 
DIM. Lo mejor es teclear NEW y empezar de nuevo. 


19 DIM BS(7,5) 
Esta vez hemos reservado espacio para una tabla de 


siete cadenas, cada una de ellas de cinco caracteres. 
Empecemos con estas: 


24 LET BSCL). = "ALA? 
30 LET BS(2) = "MAR" 
4p LET BS(4) = "RATON" 


y ahora las imprimimos: 


100 FOR J = 1 TO 7 
119 PRINT BS(3); 
120 NEXT J 


Observe que en la definición de los miembros de es- 
ta tabla (líneas 20 a 40M) y en su empleo (línea 110), 
únicamente hemos tecleado un subíndice para indicar la 
cadena acerca de la cual estamos hablando. El segundo 
subíndice se utiliza una sola vez (en la instrucción 
DIM) para fijar: la longitud máxima de cada miembro de 
la tabla. ¿Y qué sucede si intentamos introducir una 
cadena más larga de lo permitido?. 


50 LET BS(5) = "ELEFANTE" 


El ZX81 no objeta nada, simplemente rehúsa imprimir 
más caracteres de los cinco primeros. Si usted necesi- 
ta algo más que "ELEFA", tendrá que cambiar la ins- 
trucción DIM. ¡A lo mejor es por esto por lo que mi 
carnet de conducir está extendido a nombre de un joven 
llamado ''NORMA"!. 


Tablas de cadenas multidimensionales 


Son igual de fáciles, pero requieren algo más de 
memoria. Teclee el comando NEW y luego DIM CS(4,3,8). 
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Con esto hemos reservado espacio para una tabla de 
4x3 cadenas. Una vez más, el último subíndice sirve 
para fijar la longitud máxima de las cadenas, y sólo 
aparece en la instrucción DIM. Cuando se definen o se 
utilizan miembros de la tabla empleamos tan sólo los 
dos primeros números. 


LET ES(2,3)= PEUEPANTE" 
PRINT C$(2,3) 


Denominación de tablas de cadenas 


Una tabla puede tener un nombre de una sola letra, 
seguida del signo $ y de los subíndices. Un nombre co- 
mo AS, por ejemplo, no puede utilizarse más que para 
una tabla de cadenas. Si luego introducimos una segun- 
da DIM AS(m,n,...) sencillamente estamos cancelando la 
DIM original y reemplazándola por la nueva. No obstan- 
te, si lo desea puede usar todas estas variables en un 
programa: 


A (variable numérica) 

A (n,...) (tabla numérica) 

AS (variable de cadena) 

AS (n,...) (tabla de cadenas) 


Eliminar miembros de una tabla de cadenas 


Suponiendo que todavía no ha borrado la instrucción 
LET CS = "ELEFANTE", teclee estos comandos: 


PRINT CS(2,3,1) 
PRINT CS(2,3,2) 
PRINT CS(2,3,8) 


Es obvio que si introduce un subíndice extra, lo 
que está haciendo es eliminar ese carácter en particu- 
lar de la variable de cadena. Si quiere recortar mas, 
hágalo así: 


PRINT CS(2,3)(2 TO 7) o bien PRINT CS(2,3,2 TO 7) 
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Y ahora practique todo lo anterior con los siguien- 
tes ejercicios de tablas de cadenas: 


Ejercicio 26.1 Calificación de un examen 


Imagine que tiene seis alumnos en clase. Introduzca 
sus nombres en una tabla de cadenas y escriba un pro- 
grama que solicite: 

El nombre del ejercicio. 

La calificación máxima posible. 

La nota de cada alumno (use una tabla numérica). 


La salida debe consistir en un título y una lista 
de nombres y porcentajes. 


Ejercicio 26.2 Máquina tragaperras 


Establezca una tabla de cadenas que contenga seis 
figuras de las utilizadas en las máquinas tragaperras 
(campana, limón, etc). Genere tres números aleatorios 
y úselos para llevar a pantalla tres figuras. Comprue- 
be si hay premio (tres figuras iguales). 


En este capítulo hemos aprendido ... 
Instrucciones 
DIM AS(m,n...) para crear tablas de cadenas mo- 
no o multidimensionales. El último subíndice 
(extra) fija la longitud máxima de cada ele- 
mento de la tabla. 


Otros 


Eliminación de caracteres o fragmentos de los 
miembros de una tabla de cadenas. 
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Muy lógico 


En el capítulo 12 ya empezamos con IF... THEN. Vol- 
vamos ahora sobre ello. Aquí tiene el dibujo de un de- 
pósito de agua con un curioso sistema de tuberías. Hay 
cuatro grifos, denominados AS, BS, YS y ZS. 


Se trata de un problema sencillo de ingeniería. Te- 

nemos que escribir un programa que nos avise cuándo se 
cd . . 

nos escape el agua a traves de un grifo abierto. En 


primer lugar veremos AS: 


130 


19 


20 
30 
40 
150 
200 
219 


220 
230 
240 
250 
1000 
1910 
1920 
1939 
1949 
1050 


Ejecute el programa, abra y cierre AS y asegúrese 
de que la alarma funciona correctamente. 


con el 


5 
60 
19 


Ahora necesitamos una línea como la 15f para com- 
probar si BS esta abierto, pero... 


PRINT 


PRINT 
INPUT 
PRINT 


IF ¡AS <= 


PRINT 
PRINT 


INPUT 
IF XS 
CLS 
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"FIJE LA POSICION DE LOS GRIFOS", 

"A = ABIERTO C = CERRADO" 

"¿COMO ESTA AS?"; 

AS 

AS 

"A" THEN GOTO 1000 

"TODO BIEN" 

AT 21,0;"PULSE N/L PARA SEGUIR 
O BIEN S PARA PARAR" 

XS 

= "S" THEN STOP 


GOTO 10 


PRINT 
FOR J 
PRINT 
NEXT 
PRINT 
GOTO 


=> 4 10-53 

"DING DONG" 

J 

"'"SE ESTA ESCAPANDO EL AGUA" 
219 


grifo BS. 


PRINT "¿COMO ESTA BS?"; 
INPUT BS 
PRINT BS 


que podemos incluir BS en la línea 150: 


159 IF AS = "A" OR BS = "A" THEN GOTO 1000 


¿Qué, funciona?¡Pues claro que sí!. La alarma actúa 
si esta abierto tanto AS como BS. Vamos a ocuparnos de 


los otros dos grifos ahora: 


89 PRINT "¿COMO ESTA YS?"; 
INPUT YS 
PRINT YS 
110 PRINT 


2 
190 


120 


139 PRINT 


"¿COMO ESTA Z$?"; 


INPUT ZS 


ZS 


Vamos ahora 


un momento, 
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Tendremos que pensar detenidamente sobre todo esto. 
Si cualquiera de los dos grifos, YS o Z$, permanece 
cerrado, estaremos manteniendo el agua en el tanque. 
Sólo tendremos motivos de alarma si ambos están abier- 
tos, así: 


160 IF AS = "A" AND ZS = "A" THEN GOTO 1000 


Vuelva a ejecutar el programa y abra y cierre todos 
los grifos para comprobar que todo va bien. Luego sus- 
tituya las líneas 150 y 160 por una sola rigurosamente 
lógica: 


159 IF AS = "A" OR BS = "A" OR YS ="A" AND ZS = "A" 
THEN GOTO 1009 


que hace el mismo trabajo. Vea el diagrama de flujo de 


este programa: 
INICIO 


AZ 
Ba ABIERTO E 
úl 
es TO 
És 


ABIERTO 


YZ 
nO ABIERTO 
NO És Al 
23 
Es 


ABIERTO 


TODO BIEN 


¡ALARMA! 


132 7X81 


Prioridades 


Las instrucciones lógicas tan largas nos exigen que 
tengamos las ideas claras. Su acción depende del hecho 
de que el ZX81 verifica la instrucción en un orden de- 
terminado, concediendo prioridad a AND sobre OR. Igual 
que en las expresiones aritméticas, podemos cambiar la 
prioridad, o bien enfatizarla, utilizando paréntesis. 
Por ejemplo, esta línea: 


150 IF AS 
ZS 


"A" OR BS - "A" OR (YS - "A" AND 
'"'A') THEN GOTO 1000 


tiene exactamente el mismo efecto que la anterior, pe- 
ro resulta mas inteligible. 


Este es el momento de decir que el /X81 dispone de 
un NOT lógico, aunque parezca superfluo dado que: 


IF NOTA = B es lo mismo que IF A<>B 
IF NOT X>=Y es lo mismo que IF X< Y 
etcétera 


También existen relaciones lógicas entre valores 
que usan AND, OR y NOT; puede encontrarlas en el capí- 
tulo 10 del manual del ZX8l1. Debemos considerarlas 
como recursos que ahorran tiempo y memoria a los pro- 
gramadores expertos, pero no hacen nada que no pueda 
hacerse con las instrucciones que ya hemos estudiado 
en este libro. 


Ahora ejercite usted su razonamiento lógico: 


Ejercicio 27.1 Otra vez el tanque de agua 


El viejo sistema de tuberías estaba corroído y lo 
hemos desmontado. Ahora el tanque tiene una sola tube- 
ría de desagie con tres grifos, AS, BS y CS. Cambie 
las líneas INPUT que afectan a los grifos e introduzca 
esta nueva línea lógica: 


159 IF-AS = "A" AND (BS = "A" OR CS = "A") 
THEN GOTO 1000 
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Ejecute el programa, abra y cierre los grifos y de- 
duzca la nueva disposición de tubos y grifos. 


En este capítulo hemos aprendido ... 


Instrucciones lógicas AND, OR para ser utilizadas 
con IF... THEN. 
AND tiene prioridad sobre OR. 


Paréntesis para modificar o enfatizar prioridades. 
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Gráficos otra vez 


Este capítulo trata de las figuras y gráficos en 
movimiento. En estos casos el ZX81 deberá funcionar en 
modo SLOW. Los usuarios del ZX80 tendrán que pasar al 
próximo capítulo. 


Centelleos 


Si deseamos remarcar determinadas palabras en la 
pantalla, podemos recurrir a la impresión inversa, a 
los caracteres intermitentes o a ambos, igual que en 
esta subrutina: 


100 GOSUB 1000 

900 STOP 

1000 REM **RESPUESTA CORRECTA 

10109 FOR J = 1 TO 20 

1050 PRINT AT 15,20; "CORRECTO" (impresión inversa) 
11090 PRINT AT 15,20;" "(ocho espacios) 
1200 NEXT J 


Tal como está, el programa genera un centelleo muy 
rápido que conviene moderar. Esto puede hacerse inser- 
tando una instrucción PAUSE o bien, para un efecto más 
reposado, utilizando bucles vacíos: 
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1969 FOR K = 1 TO 10 
1979 NEXT K 
1119 FOR K = 1 TO 19 
1129 NEXT K 


Rebotes 


Empezaremos dibujando fragmentos de suelo y de te- 
cho para que una pelota rebote en ellos: 


199 FOR J = 20 TO 40 
110 PLOT 3,1 

120 PLOT 3,42 

139 NEXT 3 


A continuación vamos a imprimir la pelota, cerca 
del techo: 


14: LET.V.=.1 
200 PRINT AT V,15;"0" 


Y ahora hay que mover la pelota por la pantalla: 


2Q LET VW = 1 
150 LET V = V+ VW 
400 GOTO 159 


Vemos una desagradable estela de bolas. Habrá que 
borrar las que vamos dejando atrás: 


300 PRINT AT V,15;" " 


Ahora está un poco mejor, pero ¡parece que la pelo- 
ta sea de plomo!. Para hacerla botar tenemos que in- 
vertir el signo de VV al llegar al suelo y al techo: 


250 IF V = 20 OR V = 1 THEN LET VV = -VV 


¡Perfecto! . Botará una y otra vez hasta que desco- 
nectemos o pulsemos BREAK. 


Ahora vamos a extender el programa a dos dimensio- 
nes, con objeto de crear el fundamento de un juego de 
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televisión. La idea es la misma, pero ahora cambiare- 
rd £ Y 

mos tanto el numero de linea como el numero de columna 

cada vez que se ejecute el bucle. Tendremos que limi- 

tar los rebotes al interior de un pequeño rectángulo 

para no agotar la memoria. La posición inicial de la 

pelota la estableceremos aleatoriamente. 


19 LET W 
20 LET HH 
30 LET V 


1 
1 
INT (RND*13 + 1) 
40 LET H = INT (RND*19 + 1) 
21 FOR-J = 1 TO 42 
220 PLOT 3,42 
23M PLOT 1,13 
24) NEXT J 
250 FOR J = 14 TO 41 
260 PLOT 1,3 
27 PLOT 42,3 


28) NEXT J 

300 LET H = H+HH 

310 LET V = V+WW 

320 PRINT AT V,H;"0" 

3389 IF HH = 29 OR H = 1 THEN LET HH = - HH 
34) IF V = 14 OR V = 1 THEN LET VV = - VW 


350 PRINT AT V,H;" " 
36) GOTO 300 


Satélites 


Este programa sitúa una estrella en el centro de la 
pantalla y usa PLOT para hacer orbitar un planeta. 


19 PRINT "¿RADIO? DE 3 A 20" 

20 INPUT R 

30 PRINT AT 11,15;"*" 

40 LETA=0Q 

199 UNPLOT 30 + R*SIN A,20 + R*COS A 
119 LETA =A+.2 

129 PLOT 30 + R*SIN A,20 + R*COS A 
139 GOTO 100 
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El siguiente diagrama nos enseña un poco de trigo- 
nometría: 


Planeta 


R cos A 


Estrella en 30,20 


Si borra las líneas 100 y 110 y añade éstas: 


4) FOR A = Q TO 2*PI STEP .Q05 
139 NEXT A 


su programa dibujará un círculo. 


Flechas 


Aquí tiene un programa de tres líneas que lanza una 
flecha a través de la pantalla: 


199 FOR J = Y TO 27 
110 PRINT AT 15,9;"  (4";TAB 3;"malad"' TAB 3;" 50" 
129 NEXT J 


Los gráficos resultan difíciles de montar, pero un 
diagrama como éste nos ayudara: 


PRINT AT 15); 


TAB ); 


TAB ); 
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Aquí hay dos puntos importantes que hay que remar- 
car: (1) La técnica de empleo de TAB J para imprimir 
algo exactamente debajo de la misma posición de la 1Í- 
nea anterior. (2) El uso de espacios al principio de 
las tres cadenas de caracteres para conseguir que la 
flecha vaya borrando automaticamente los restos de las 
anteriores a medida que avanza por la pantalla. 


Tortugas rodantes 


Aquí se combinan el programa sobre tiradas de dados 
del capítulo 25 y la técnica de lanzamiento de flechas 
anterior, para que cinco tortugas recorran la pan- 
talla. 


19 RAND 
29 DIM D(5) 
199 CLS 


119 PRINT "CARRERA DE TORTUGAS ZX81" 

200 LET T = INT (RND*5 +1) 

210 LET D(T) = D(T) + 1 

319 PRINT AT T*3, D(T);"GAm)";TAB D(T);"GM";T; 
” MP"; TAB DITIS" EN” 

320 IF D(T) < 27 THEN GOTO 200 

400 PRINT AT 21,20;"NO. ";T;" GANA" 

410 INPUT AS 

420 RUN 


El resultado es la imagen de una tortuga que se 
mueve por la pantalla igual que la flecha, aunque más 
lentamente. Este diagrama nos dará una idea más clara 
del gráfico: 


PRINT AT T * 3,D(T) 
TAB D(T) 


TAB D(T) 
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Observe que las colas van dejando un rastro tras de 
sí a medida que las tortugas se desplazan. Si desea 
evitarlo tendrá que incluir un espacio en blanco justo 
detrás de la cola y acortar la carrera en un carácter. 


Seguramente le apetecerá tratar de resolver algunos 
problemas de gráficos. 


Ejercicio 28.1 Centelleo 


Escriba una subrutina para premiar al ganador de 
alguno de sus juegos. Haga que la palabra 'GANADOR' 
centellee diez veces en la parte inferior derecha de 
la pantalla y quede fija al final. 


Ejercicio 28.2 Pelota de goma 


Hemos visto un programa sobre una pelota perfecta- 
mente elástica que bota indefinidamente. Ahora escriba 
un programa que simule una pelota más real, que bote 
verticalmente con botes cada vez mas pequeños y que 
acabe quieta en el suelo. Es un problema difícil. Ne- 
cesitará 'un bucle interno para hacer botar la pelota 
dentro de ciertos límites, y otro externo para ir re- 
duciendo progresivamente el límite superior y, conse- 
cuentemente, la altura de los botes. 


Ejercicio 28.3 Módulo lunar 


Hemos hecho que flechas y tortugas se muevan por la 
pantalla. Su problema es ahora construir un pequeño 
módulo lunar (utilice los caracteres que prefiera) y 
hacer que descienda por la pantalla hasta la superfi- 
cie de la luna. Quedará muy bien si consigue que vaya 
reduciendo su velocidad a medida que desciende. 
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¡Vaya memoria! 


Aritmética binaria 


Todos sabemos que los ordenadores trabajan en arit- 
mética binaria (en base 2). Al igual que la mayoría de 
los microordenadores, el ZX8l contiene un gran número 
de células de memoria o bytes, cada uno de los cuales 
alberga un número de 8 bits. Aquí tiene una idea para 
construir un útil modelo de byte: 


Corte una tarjeta por el eje mayor en dos mitades. 
Sobre una de ellas haga un dibujo como éste y practi- 
que cortes siguiendo las líneas a trazos: 


Ahora doble las ocho pestañas de tal modo que los 
unos queden cubiertos, y escriba ceros sobre las caras 
que quedan a la vista, así: 
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Cada uno de los bits de su byte puede tener ahora 
el valor Q (doblado) o 1 (desplegado). El valor deci- 
mal del número del byte se halla sumando los números 
decimales de las pestañas que estén desplegadas: 


En este caso, el número binario que figura en el 
byte es 010011081, que es equivalente al número decimal 
64+8+4+1 = 77. 


Por supuesto, el número decimal más pequeño que po- 
demos encontrar en un byte es Q (todas las pestañas 
dobladas) y el mayor es 255 (todas desplegadas). Por 
tanto, las células de memoria del ZX81 están ocupadas 
por números comprendidos entre Q y 255, y con ellos se 
pueden representar números, caracteres, instrucciones, 
etc. Los números mayores de 255 necesitan dos o mas 
bytes, y cuando se define una variable como: 


LEA Sl 


el Z/X81 toma cinco bytes para contener toda la posible 
información sobre A (tamaño, posición del punto deci- 
mal y signo) además de los que sean necesarios para el 
nombre de variable. 


Memorias del /ZX81 


La memoria del ZX81 está dividida en dos partes. La 
ROM (read only memory) o memoria de solo lectura con- 
siste en 8K bytes (1K = 2*” = 1024 bytes), que contie- 
nen todas las instrucciones permanentes necesarias pa- 
ra traducir el BASIC a código binario, y para indicar 
al /X81 lo que tiene que hacer en cualquier caso. La 
ROM es permanente; usted puede averiguar lo que con- 
tiene un byte de la ROM, pero no puede cambiarlo en 
ningún caso. 
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A la otra parte la denominamos RAM (random access 
memory) o memoria de acceso aleatorio, y consiste en 
1K byte (1024 bytes numerados desde 16384 a 17407). La 
RAM contiene toda la información que cambia de un pro- 
grama a otro (las variables del sistema, su propio 
programa, el fichero de pantalla y las variables numé- 
ricas y de cadena). Usted puede averiguar el contenido 
de un byte de la RAM y también modificarlo. 


Para aprovechar adecuadamente las posibilidades de 
su ZX81 necesitará la ampliación de RAM a 16K. Se tra- 
ta de una caja del tamaño de un paquete de cigarrillos 
que encaja en un conector situado en la parte poste- 
rior del ZX81 y que amplía su memoria RAM hasta un to- 
tal de 16K o 16383 bytes (vea el Apéndice 5). 


¿Qué contiene ese byte? 


Para saber lo que hay en un byte de ROM o de RAM 
cuya dirección es el número n, utilizaremos la función 
PEEK n. Aquí tiene un ejemplo: 


100 LET F = PEEK 16396 + 256 * PEEK 16397 
119 PRINT "EMPIEZA VISION FICHERO","EN BYTE ";F 


¿Pero qué está pasando?. Bien, la primera zona de 
RAM contiene las variables del sistema, es de tamaño 
fijo y se extiende desde 16384 hasta 165099. La zona 
siguiente alberga su programa que, por supuesto, es de 
tamaño variable, seguido inmediatamente por el fichero 
de pantalla (la información que aparecerá en pantalla 
cuando el programa se detenga). Una de las variables 
del sistema es la dirección del principio del fichero 
de pantalla, que el ZX81 necesita conocer; es un núme- 
ro de cinco dígitos que ocupa dos bytes: el 16396 y el 
16377. 


Ejecute el programa, tome nota del principio del 
fichero de pantalla y luego añada esta línea: 


12 PRINT 


Si lo ejecuta de nuevo verá que el fichero de pan- 
talla se ha desplazado seis bytes, que es el espacio 
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ocupado por la nueva línea de programa. Ahora vamos a 
averiguar lo que realmente hay en los primeros diez 
bytes del fichero de pantalla. 


139 FOR J = Y TO 9 
14 PRINT PEEK F +3 
159 NEXT J 


Bueno, ya le advertí que los bytes de la ROM y de 
la RAM sólo contienen números hasta el 255. ¿Pero re- 
cuerda qué instrucción convierte los códigos en carac- 
teres?¡Claro que sí, muy bien!. 


140 PRINT CHRS PEEK (F + 3) 


Ya dije que podíamos cambiar el contenido de cual- 
quier byte RAM, aunque no es recomendable a menos que 
sepa perfectamente lo que está haciendo. La instruc- 
ción indicada es: 


POKE m,n 


siendo m la dirección del byte que estamos modificando 
y n el nuevo valor que introducimos (entre Q y 255, 
por supuesto). 


Pongamos un asterisco (código 23) en la línea supe- 
rior de la pantalla: 


125 POKE F + 5,23 


Ejecute de nuevo el programa y asegúrese de que 
funciona bien. Se encuentra usted en el buen camino 
para averiguar como organiza su memoria el /X8l. 


Programación avanzada 


Se pueden escribir programas excelentes en BASIC 
sin recurrir a las instrucciones PEEK y POKE, pero fi- 
nalmente se dará cuenta de que ellas nos permiten ha- 
cer cosas que de otro modo resultan imposibles. Usted 
también deseara emplear la función USR para escribir 
rutinas en código-maquina (se ejecutan con más rapidez 
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y ocupan menos memoria que en BASIC). Tendrá que leer 
cuidadosamente el manual del ZX81 (capítulos 25 a 28) 
y además comprar algún libro sobre programación avan- 
zada. ¡Buena suerte!. 

En este capítulo hemos aprendido ... 


Instrucciones 


POKE m,n para guardar el valor n en el byte de 
direccción m. 


Funciones 


PEEK m permite conocer el contenido del byte m 
en forma de número decimal. 


Otros 


La memoria del /X81l de 8K ROM, 1K RAM y la ex- 
pansión conectable a 16K RAM. 
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Puesta a punto 


Si es capaz de escribir un programa de cierta lon- 
gitud que funcione a la primera, es usted una persona 
que hace las cosas bien. Pero es mas probable que al 
principio haya errores o 'bugs' que deba corregir. 


Errores de sintaxis 


Por lo general el ZX81 no le permitirá este tipo de 
equivocaciones. Olvídese una comilla o un paréntesis, 
mezcle variables numéricas y de cadena, o cometa algu- 
na otra falta sintáctica y el ZX81 le mostrará el cur- 
sor [S] e impedirá la introducción de la línea. A propo- 
sito, asegúrese de que sus líneas son admitidas y evi- 
tará grandes pérdidas de tiempo tecleando al final 
líneas para sustituir a las erróneas. 


Errores que detienen el programa 


Aun en el caso de que todas las líneas hayan sido 
admitidas, puede suceder que se detenga la ejecución 
del programa a causa de algún otro error. En este caso 
el ZX81 nos ayuda imprimiendo un código que indica el 
número de línea y el tipo de error que ocasionó la pa- 
rada. Estos codigos figuran en el Apéndice B del ma- 
nual de operaciones del ZX81, y con frecuencia resul - 
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ta obvio lo que hay que hacer para poner las cosas en 
orden. Aquí tiene algunos casos en los que el remedio 
no es tan evidente. 


Código 2/n. Variable no definida 


Todas las variables tienen que definirse mediante 
una de las siguientes sentencias: LET, INPUT, FOR (pa- 
ra variables de control de bucles) o DIM (tablas). 


Código 4/n. No queda memoria disponible 


Es un contratiempo frecuente con la memoria de 1K 
RAM, que no permite ir muy lejos, sobre todo si se em- 
plean gráficos y tablas. Estas son algunas ideas para 
economizar memoria. Recuerde que la RAM contiene el 
programa, las variables y el fichero de pantalla. 


(1) Disminuya el número de variables. Reduzca las 
tablas y evite las variables ficticias innece- 
sarias. Si le es posible, utilice el mismo nom- 
bre para más de una variable en diferentes par- 
tes del programa. 


(2) Acorte las cadenas de caracteres y las varia- 
bles de cadena; utilice abreviaturas. 


(3) Elimine las líneas REM. 


(* ) Procure tener cuidado con las operaciones du- 
plicadas. Pongalas en bucles o en subrutinas. 


(5) Reduzca los gráficos y salidas por pantalla. 


(6) Intente segmentar el programa. Recuerde que las 
variables definidas en una parte del mismo pue- 
den utilizarse en otras. 


(7) ¡Ahorre para comprar la ampliación a 16K RAM!. 


Código 5/n. Pantalla completa 


La instrucción CONT borra la pantalla Y permite que 
el programa continúe. A la larga se verá obligado a 
buscar soluciones mejores, como reducir las salidas, o 
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bien intercalar pausas seguidas por CLS, o recurrir a 
la instruccion SCROLL. 


Errores que no detienen el programa 


A veces los programas parecen funcionar bien pero 
al final la salida no tiene ningún sentido. Recuerde 
el viejo proverbio que dice que no hay ordenadores ma- 
los, sino sólo programas deficientes. En ocasiones es- 
tá claro que la salida no es correcta; en otras no es 
tan obvio y habrá que comprobarla cuidadosamente. He 
aquí algunas ideas al respecto: 


(1) 


(2) 
(3) 


(4) 


(5) 


(6) 


(7) 


(8) 


(2) 


Verifique su programa introduciéndole datos que 
conduzcan a una salida conocida. 


Compruebe los resultados con una calculadora. 


Vigile los posibles errores de puntuación cuan- 
do tenga problemas con tablas de resultados o 
con graficos. 


Pruebe las instrucciones condicionales introdu- 
ciendo datos que cumplan la condicion estable- 
cida y luego otros que no la satisfagan. 


Siga el curso de sus bucles (en especial los 
anidados) utilizando un diagrama de flujo. 


Ponga líneas PRINT provisionales en distintos 
puntos del programa para imprimir el valor de 
las variables. 


Interrumpa de vez en cuando la ejecución con 
líneas STOP provisionales y compruebe separada- 
mente cada parte. Use un comando PRINT para ver 
las variables y luego CONT para seguir. 


Puede ser útil emplear CLEAR, como comando o 
como instruccion, para borrar las variables an- 
tes de introducir nuevos valores. 


Verifique las partes no iniciales del programa 
empleando RUN n o GOTO n para empezar la ejecu- 
ción en la línea n. Recuerde que RUN borra to- 
das las variables, y GOTO no. 


Apéndice 1 


BASIC ZX 81 en 8k ROM 


Aquí se da una lista completa de las instrucciones 
BASIC accesibles desde el teclado del ZX8l. 


n, m, p 


representa una cadena de caracteres entreco- 
millada o una variable de cadena. 


simbolizan números, variables o expresiones. 
Cuando n, m y p deban ser enteros (como en 
PLOT n,m) el ZX81l redondea hasta el entero 
más próximo (por ejemplo, 1.4 se toma como 
10, 1.6 como 11 y 10.5 como 11). 


Comandos para escritura y edición de programas 


EDIT 
S< > 
6 > 
FUNCTION 


GRAPHICS 


borra la parte baja de la pantalla y lleva 
allí la línea indicada por el cursor de pro- 
grama para su edicion. 


mueven el cursor de programa una línea arri- 
ba o abajo. 


mueven el cursor un caracter a la derecha o 
a la izquierda, sin afectar al texto. 


cambia el cursor a [F]. La siguiente tecla que 
se pulse llevará a la pantalla la correspon- 
diente función y cambiará el cursor a [Ll]. 


cambia el cursor a ld, para obtener bloques 
graficos e impresion inversa de letras, nu- 
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meros y otros caracteres de uso en cadenas. 
Pulse GRAPHICS otra vez para volver el cur- 
sor a la posición |[L]. 


LIST Muestra todo el programa que quepa en panta- 
lla empezando por la primera línea, y sitúa 
el cursor de programa frente a ella. 


LIST n Muestra todo el programa que sea posible em- 
pezando por la línea n y pone frente a ella 
el cursor de programa. 


NEWLINE (1) Transfiere una línea numerada y valida 
desde la parte inferior de la pantalla 
al programa. 


(2) Hace que el ZX81l ejecute cualquier co- 
mando de la base de la pantalla. 


(3) Limpia la pantalla después de haber eje- 
cutado un programa y restablece en ella 
el listado del mismo. 


RUBOUT Borra el carácter o palabra clave situados a 
la izquierda del cursor. 


SHIFT Pulsando simultáneamente la tecla SHIFT y 
alguna otra, se llama al carácter impreso en 
rojo en esta ultima. 


Comandos del sistema 


Son instrucciones simbolizadas por una palabra cla- 
ve que no forma parte del programa y que se ejecutan 
una sola vez tras teclearlas y pulsar NEWLINE. Aunque 
el /X8l acepta cualquier palabra clave como comando, 
INPUTÍ da un error de código (Q/8, y algunas otras care- 
cen de sentido. Salvo BREAK, STOP y COPY, todos los 
comandos limpian la pantalla antes de ser ejecutados. 


BREAK (1) Interrumpe al ZX81 mientras está traba- 
jando. No se produce ninguna salida, ex- 
cepto un código que informa de dónde se 
detuvo el programa. 


(2) Para al ZX81 durante LOAD o SAVE. 


CLEAR 
CONT 


FAST 


GOTO n 


LET 


LOAD s 


NEW 
POKE m,n 
PRINT 


RUN 


RUN n 


SAVE s 


SLOW 


STOP 
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Borra todas las variables. 


Reinicia la ejecución del programa, detenida 
por BREAK, STOP o saturación de pantalla. 


Pasa al ZX81l a modo FAST (4xSLOW). En este 
modo, la pantalla permanece en blanco duran- 
te el proceso. Con el ZX80 éste es el único 
modo de trabajo posible. 


Inicia la ejecución del programa en la línea 
n sin borrar ninguna variable. 


Define una variable. 


Borra el contenido de la memoria del ZX81 y 
carga en ella un programa de nombre s, gra- 
bado en cinta magnética. 


Borra el programa y las variables de la me- 
moria del ZX81. 


Sitúa el valor n (de QM a 255) en la direc- 
ción m de la memoria. 


Lleva a la pantalla todo lo que siga al co- 
mando PRINT. 


Bdrra todas las variables y desencadena la 
ejecución del programa empezando por la pri- 
mera línea. 


Borra todas las variables e inicia la ejecu- 
ción, empezando en la línea n. 


Envía el programa de nombre s desde la memo- 
ria del ZX81 a una cinta magnetica para su 
almacenamiento permanente. 


Pasa al ZX81 del modo de trabajo FAST al mo- 
do SLOW, en el cual van apareciendo en pan- 
talla todas las salidas a lo largo del pro- 
ceso. Este es el modo en que se encuentra el 
7X81l siempre que se le conecta; con el ZX80 
no es posible. 


Permite sacar al /X81 de un bucle con INPUT 
cuando se le introduce como INPUT. Antes ha- 
brá que borrar las comillas de la cadena. 
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Sentencias de programa 


Son palabras clave integradas como instrucción en 
el programa. El /ZX81 acepta cualquier palabra clave, 
pero CONT y NEW rara vez tendrán sentido. 


CLEAR 
CLS 
DIM Aín) 


DIMA(n,,Nn>>-+--N,) 


DIM BS(n,m) 


DIM BS(n;, n 


n, Mm) 


AS 


FAST 


FOR J = n TO m 


NEXT J 


FOR J = n TO m STEP p 


Borra todas las variables. 
Limpia la pantalla. 


Crea una tabla numérica de una di- 
mensión, A(1), A(2),... Aín), y 
pone a cero todos sus elementos. 


Crea una tabla numérica de más de 
una dimension y carga sus elemen- 
tos con Y. 


Crea una tabla de cadenas monodi- 
mensional cuyos elementos tienen 
un máximo de m caracteres, BS(1), 
BS(2),... BS(n) y les asigna una 
cadena de m espacios. 


Crea una tabla de cadenas multidi- 
mensional, con un máximo de m ca- 
racteres por miembro y cada uno de 
ellos cargado con una cadena de m 
espacios. 


Pasa el ZX81 al modo FAST (vea el 
comando FAST). 


Crea un bucle FOR... NEXT. El va- 
lor inicial de J es n y va progre- 
sivamente aumentando en 1 tras ca- 
da ciclo. Cuando J >.m el bucle 
ha finalizado y prosigue la ejecu- 
ción del programa principal. Cada 
bucle se recorre n-m+]l veces, o 
una sola si es m<mn, y el valor 
final de J es igual a m+l. 


Modifica un bucle FOR... NEXT de 
tal manera que J es incrementado 
en p después de cada ciclo. Si se 
desea p puede ser negativo, resul - 
tando m < n. 


GOSUB n 


GOTO n 


IF / THEN 


INPUT 


LET 


PAUSE n 


PLOT m,n 


POKE m,n 


PRINT 


PRINT AT 
m,n; 
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Salta a la subrutina que empieza en la lÍí- 
nea n, continúa desde allí hasta encontrar 
un RETURN y entonces vuelve a la línea que 
sigue a GOSUB n. 


Salta a la línea n del programa y continúa 
desde allí. 


Instrucción condicional. Si (IF) la condi- 
ción se cumple, entonces (THEN) se ejecuta 
la sentencia (cualquier palabra clave). Si 
la condición no se cumple, el programa si- 
gue a la próxima línea. 


Detiene el programa para que el operador 
asigne un valor a una variable numerica o 
de cadena. 


Asigna un valor a una variable numérica o 
de cadena. 


Detiene el programa y muestra una salida 
durante n/50 segundos, o bien hasta que se 
pulse alguna tecla. Si n > 32767 la pausa 
tiene una duración indefinida hasta que se 
oprima alguna tecla. 


Ennegrece un pixel de pantalla, en la po- 
sición 'm horizontal, n vertical'. El ran- 
go esdem=Qa63yn=Qa 43, inclusi- 
ve. La siguiente posición de PRINT se si- 
túa inmediatamente después de ese pixel. 


Guarda el valor n (Q a 255) en la posición 
m de la memoria. 


Imprime cualquier cosa situada después de 
PRINT (números, variables numéricas o de 
cadena, expresiorres y cadenas de caracte- 
res) en la posición actual de PRINT en la 
pantalla. 


Imprime lo que esté después de PRINT, en 
la posición m líneas hacia abajo y n ca- 
racteres a la derecha, independientemente 
de la posición actual de PRINT. 
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PRINT TAB n; 


PRINT s 
(m TO n) 


RAND 
REM 


RETURN 
RUN y RUN n 


SCROLL 


STEP 
SLOW 


STOP 


UNPLOT m,n 


Comandos 


COPY 
LLIST 
LLIST n 


LPRINT 
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Mueve la posición de PRINT hasta el carác- 
ter n de la línea actual (o de la siguien- 
te si la posición actual de PRINT es mayor 
que n), e imprime allí cualquier cosa que 
siga a PRINT. 


Imprime el fragmento de la cadena s que va 
desde el carácter m hasta el n. Si se omi- 
te m o n, se toma el primer o el último 
carácter. 


Genera un número aleatorio como matriz pa- 
ra futuras expresiones RND. 


Precede a un comentario que será ignorado 
por el ZX8l. 


Véase GOSUB. 


Borra todas las variables y reinicia el 
programa desde el principio, o bien desde 
la línea n. 


Mueve el contenido de la pantalla una 1í- 
nea hacia arriba y sitúa la posición de 
PRINT al principio de la línea inferior. 


Véase FOR... NEXT... STEP. 


Pasa al /X81l a modo SLOW (vea el comando 
SLOW). 


Para el program y las salidas. El comando 
CONT reanuda la ejecución. 


Es exactamente igual que PLOT, excepto en 
que UNPLOT desennegrece el pixel. 


e instrucciones para la impresora 


Copia el contenido de la pantalla. 
Imprime un listado del programa. 


Imprime un listado del programa, empezando 
en la línea n. 


Imprime cualquier cosa que siga a LPRINT. 
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Funciones numericas 


ABS n 
ARCCOS n 
ARCSIN n 
ARCTAN n 
COS n 
EXP n 
INT n 

LN n 
PEEK n 


PI (o T) 
RND 
SGN n 


SIN n 
SOR n 
TAN n 
USR n 


Valor absoluto de n (sin signo). 
Angulo en radianes cuyo coseno es n. 
Angulo en radianes cuyo seno es n. 
Angulo en radianes cuya tangente es n. 
Coseno de n (ángulo en radianes). 
Antilogaritmo neperiano de n: e*. 
Parte entera de n. 

Logaritmo neperiano de n (en base e). 


Valor que está ocupando la dirección n de 
la memoria. 


Número 3.14159... 
Número seudoaleatorio entre Q y 1. 


Es el signo de n. Si n es positivo, enton- 
ces SGCN n = 1; sin =Q, SCN n = 0, y sin 
es negativo, SGN n = - 1. 


Seno de n (ángulo en radianes). 
Raíz cuadrada de n. 
Tangente de n (ángulo en radianes). 


Llama a la subrutina de código maquina en 
la dirección ñ. 


Funciones de gestión de cadenas 


CHRS n 


CODE s 
INKEYS 


LEN s 


Carácter cuyo código es n (n puede estar 
comprendido entre Q y 255 inclusive). 


Código numérico del primer carácter de s. 


Lee todo el teclado. INKEYS es un solo ca- 
rácter que corresponde a una tecla presio- 
nada, o a la cadena vacía si no se pulsa 
ninguna. 


Número de caracteres de la cadena s. 
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STRS n Convierte el número n en la aparentemente 
identica cadena 'n'. 


VAL s Siempre que sea posible, convierte la ca- 
dena s en un numero, o en una expresion 
evaluable como un numero. 


Operadores lógicos 


pe Se utilizan conjuntamente con IF en ins- 
OR trucciones condicionales. 


Operadores aritméticos 


n**m Es n elevado a la m-sima potencia. 
-n Convierte en negativo el valor de n. 
n*m Es. 1 VECES Ms 

n/m Equivale a n dividido por m. 

n+m Es n más m. 

n-m Es igual a n menos m. 


Operadores relacionales 


Se utilizan para comparar dos números, variables o 
expresiones. El signo = se usa tambien con LET para 
asignar un valor a una variable. 


n <=m Es n igual a m. 

n<m Significa que n es menor que m. 

n>m Significa que n es mayor que m. 

n <= .m Significa que n es menor o igual que m. 
mM Significa que n es mayor o igual que m. 
n <>m Significa que n es distinto de m. 


Aquí también es válido utilizar NOT. Por ejemplo, 
NOT n = m es equivalente a n <>m. 
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Puntuación 


() 


Instrucción utilizada para que la próxima 
salida PRINT se sitúe inmediatamente des- 
pues de la anterior. 


Es una instrucción que se emplea para pa- 
sar a la siguiente zona PRINT y situar en 
ella la próxima salida. Cada línea de la 
pantalla se encuentra dividida en dos zo- 
nas PRINT iguales. 


Indica el principio o el final de una ca- 
dena de caracteres, de una cadena INPUT, o 
bien de la definición de una variable de 
cadena. 


Se utiliza como punto decimal. 


Se usan para introducir comillas dentro de 
las cadenas de caracteres. 


Sirven para modificar las prioridades en 
las expresiones numericas o. en las ins- 
trucciones logicas. 


Con la excepción de ", todos los signos anteriores 
pueden usarse dentro de las cadenas de caracteres (y 


también 


e 2) 


Apéndice 2 
Glosario 


Aleatorio. Número: Número tomado de un conjunto cuyos 
miembros tienen todos* la misma probabilidad de ser se- 
leccionados y ademas dicha selección es independiente 
de cualquier acontecimiento previo. 


Alto nivel. Lenguaje de: Lenguaje de programación for- 
mado por palabras inglesas fácilmente reconocibles. 


Back-up: Cualquier método para el almacenamiento per- 
manente de programas y variables. Por ejemplo, la gra- 
bación en cassettes. 


Bajo nivel. Lenguaje de: Lenguaje de programación que 
utiliza el código máquina. 


BASIC: Aunque originalmente fue concebido para princi- 
piantes, hoy es uno de los lenguajes de programación 
de alto nivel más ampliamente utilizados en microorde- 
nadores. 


Binario. Número: Es un número en sistema binario (en 
base 2), en el que las únicas cifras son Q y 1, ent lu- 
gar de Q, 1,... 9 del' sistema decimal (base 10). 


Bit: Uno de los dos dígitos posibles de un número bi- 
nario. Es decir, Q o l. 


Bucle: Fragmento de un programa que se ejecuta repeti- 
damente, a veces incluso miles de veces. 


Bucles anidados: Son bucles situados dentro de otros 
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de tal manera que el bucle interno se ejecuta varias 
veces por cada vez que se recorre el externo que lo 
contiene. 


Bug: Error en un programa suficiente para impedir que 
realice lo que se espera de el. 


Byte: Un número binario de 8 bits de longitud. Es la 
unidad de almacenamiento mas corriente de las memorias 
de los microordenadores. 


Cadena de caracteres: Serie de caracteres entrecomi- 
llada e impresa literalmente por el ordenador. 


Cadena vacía: Es una cadena que no contiene ningún ca- 
racter. 


Carácter: Unidad de información susceptible de ser al- 
macenada en un byte e impresa en pantalla. Por ejemplo 
A, 1, ; y PRINT son caracteres del ZX81l. 


Clave. Palabra: Es un comando, sentencia o función que 
ocupa un byte de memoria y que se introduce mediante 
una O dos pulsaciones sobre el teclado. 


Código de carácter: Número de un solo byte que sirve 
para identificar un caracter. Puede variar de un orde- 
nador a otro. 


Código de error: Mensaje del ZX81 que aparece al final 
de una ejecucion o tras una parada. 


Código máquina: Código de programación que se caracte- 
riza por utilizar el sistema hexadecimal para repre- 
sentar los numeros binarios. 


Comando: Instrucción que no forma parte del programa y 
que hace que el ordenador cumpla determinada orden una 
sola vez. 


Concatenacion: Unión de varias cadenas como si se tra- 
tara de eslabones. 


Condicional. Instrucción: Sentencia que únicamente se 
ejecuta si se satisface determináda condicion. 


Diagrama de flujo: Representación grafica de una serie 
de operaciones relacionadas entre sí y que deben rea- 
lizarse siguiendo un orden determinado. 
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Dirección: Número que identifica un byte de memoria. 


Editar: Seleccionar y modificar una línea determinada 
del programa. 


Enter: Introducir en el ordenador a través del teclado 
una línea de programa, un comando o algún dato (en el 
¿X81 se hace presionando NEWLINE). 


Entero: Número sin decimales que puede ser positivo o 
negativo. 


Firmware: Se utiliza en ocasiones para referirse al 
interprete y otros programas de la ROM. 


Flowchart: Véase diagrama de flujo. 


Función: «Una operación determinada que hay que reali- 
zar con el numero o la cadena que sigan. 


Hardware: Partes físicas del ordenador y los disposi- 
tivos perifericos, en oposicion a los programas. 


Impresora: Dispositivo que conectado al ordenador per- 
mite obtener la salida impresa sobre papel. 


K (de memoria): Unidad de memoria equivalente a 1024 
bytes. 


Load: Cargar o transferir un programa desde el soporte 
del almacenamiento permanente al ordenador. 


Notación científica: Expresa un número en términos de 
su mantisa (un número entre Q y 10) y su exponente (la 
potencia de 10 que hay que multiplicar por la mantisa 
para obtener el número 'original). El ZX81 utiliza este 
sistema con los números muy grandes o muy pequeños que 
de otra manera necesitarían más espacio del disponible 
en pantalla. 


Pixel: Abreviatura de "picture cell'. Es el elemento 
gráfico más pequeño que puede imprimirse en pantalla. 
En el caso del ZX81 la pantalla consta de 43 líneas de 
63 pixels cada una. 


Prioridad: Orden en el que se realizan las operaciones 
aritmeticas o logicas. 


Programa: Sucesión numerada de instrucciones que tie- 
nen que ser ejecutadas por el ordenador. 
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RAM (random access memory): Memoria del ordenador que 
se utiliza para retener programas y datos. Cada byte 
de la RAM puede ser leído o alterado fácilmente a vo- 
luntad del programador. 


Relacionales. Operadores: Símbolos como =, <, > que se 
usan para comparar numeros, expresiones o cadenas. 


ROM (read only memory): Memoria permanente del ordena- 
dor que generalmente contiene el intérprete de BASIC, 
el sistema operativo y programas similares. Puede ser 
leída pero no modificada. 


Save: Transferir un programa a un soporte de almacena- 
miento permanente para emplearlo en el futuro. 


Sentencia: Es una instrucción para el ordenador que 
forma parte de un programa. 


Seudoaleatorios. Números: Son números cuya distribu- 
ción es aparentemente aleatoria, pero de hecho cada 
uno de ellos es calculado por el ordenador a partir de 
un número inicial y, por tanto, no son verdaderamente 
aleatorios. 


Sintaxis. Error de: Error en la estructura de una lí- 
nea del programa que impide que sea ejecutada y, en el 
caso del ZX81, incluso ser admitida. 


Software: Manuales y programas del ordenador, en opo- 
sición a las partes físicas. 


Subrutina: Fragmento de un programa al que puede ser 
dirigido el ordenador desde cualquier parte del pro- 
grama principal. Una vez ejecutada la subrutina, el 
ordenador vuelve a la línea que siga inmediatamente al 
punto de partida. 


Tabla de cadenas: Conjunto de variables de cadena que 
se identifican por el nombre de una tabla y unos sub- 
índices. En el BASIC ZX81 una tabla de cadenas contie- 
ne una dimensión extra que indica la longitud de cada 
miembro. 


Tabla numérica: Conjunto de variables numéricas, iden- 
tificadas por un nombre de tabla y unos subíndices. 


Variable de cadena: Es una variable que en BASIC se 
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identifica por un nombre seguido del signo $, y al que 
se pueden asignar cadenas de caracteres de cualquier 
tipo, con algunas excepciones irrelevantes. 


Variable numérica: Variable representada por un nombre 
al que pueden asignarse cualquier numero o expresion 
numerica. 
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Apéndice 3 
Programas para el ZX 81 


Rectángulos aleatorios (1K). 
Espiral cuadrangular (1K). 
Columnas aleatorias (1K). 
Estadística de ventas (1K). 
Media móvil (1K). 

Múltiplos (1K). 

Descomposición en factores (1K). 
Cambio de base (1K). 

Dibujos (1K). 


. Dibujos y su almacenamiento 


en una tabla (16K). 


. Toros y vacas (1K). 

. Dado electrónico (1K). 

. Velocidad de reacción (1K). 
. Caja negra (16K). 

. Guía telefónica (16K). 
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1. Rectángulos aleatorios (1K) 


Este programa utiliza parte de la pantalla (aproxi- 
madamente 2/3) para dibujar en ella una serie ilimita- 
da de rectángulos de tamaño y en posición aleatorios. 


19 RAND 
100 LET A 
110 LET B 
12 LET C 
130 LET D 


140 IF A 
159 IF B 


INT(RND * 43) 
INT(RND * 43) 
INT(RND * 43) 
INT(RND * 43) 
C THEN LET A = A+l 
DO. .THEN.LET Bo=B +1 


200 FOR J = A TO C STEP SCN (C - A) 
21 PLOT J,B 

22% PLOT 3,D 

230 NEXT J 

24 FOR J = B TO D STEP SCGN (D - B) 
250 PLOT A,I 

26 PLOT C,I 

27) NEXT J 

300 GOTO 109 


Lista de 


A, B 


Notas 


Líneas 100 
a 159 


Líneas 200 
a 230 


variables 


Coordenadas de uno de los vértices de un 
rectangulo. 


Coordenadas del vértice opuesto. 


Variable de control de bucle. 


Establecen aleatoriamente las coordenadas 
de los vértices entre Q y 43, y comprueban 
que A y C, y B y D no son iguales. 


Dibujan los lados horizontales. Dado que A 
puede ser mayor o menor que C, utilizamos 
STEP SGN (C - A), que puede adoptar los va- 
lores +1 o -1, para asegurar el buen fun- 
cionamiento del bucle FOR/NEXT. 
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Líneas 24 Dibujan los lados verticales. 
a 210 


Línea 30Q Retrocede para generar el próximo rectán- 
gulo. No necesitamos incluir un RAND en el 
bucle; en ciertos programas esto produ- 
ciría incluso un efecto opuesto a la alea- 
torización deseada. 


Con una RAM de 16K podemos ampliar el rango de A y 
C hasta 63, máximo permitido por PLOT. Este programa 
puede ser fácilmente modificado de manera que dibuje 
un número definido de rectángulos, o bien para utili- 
zarlo como una subrutina que dibuje un rectángulo, da- 
das las coordenadas de dos vértices opuestos. 


2 Espiral cuadrangular (1K) 


Es un interesante, aunque poco útil, programa que 
dibuja y borra alternativamente una espiral cuadrangu- 
lar en el centro de la pantalla. Usted tiene la posi- 
bilidad de modificarlo para que haga una espiral rec- 
tangular, útil para títulos. 


10 LETS = 1000 
20 LETD= 25 
30 LETH=5 

4Y LET V = 18 


50 LETS = 3000 - S 
9) IF D= 1 THEN GOTO 20 
109 FOR H = H TO H=+D 
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400 FOR V = V TO V- D STEP - 1 


41 GOSUB S 
42 NEXT V 
430 LETD=D-1 
44H GOTO 929 


1000 UNPLOT V,H 
20109 RETURN 
2000 PLOT V,H 
2019 RETURN 


Lista de 


Notas 


Línea 50 


Línea 90 


Líneas 100 
a 120 


Línea 130 


Líneas 200 
a 230 


Líneas 230 
a 430 


Línea 440 


Líneas 1000 
a 2000 


variables 


Determina qué subrutina entra. 
Anchura de la espiral. 


Coordenadas del punto de partida. 


Asigna a S los valores 2000 y 1000 alter- 
nativamente para cada ejecución del bucle. 


Detecta el final del bucle principal y en- 
tonces retrocede para fijar nuevos valores 
de las variables. 


Dibujan la primera línea vertical. 


Reduce en 1 la longitud del lado. 


Dibujan la línea horizontal siguiente. 
Dibujan los dos lados que quedan. 


Vuelve a la línea 90 para dibujar el ele- 
mento siguiente de la espiral. 


Son rutinas alternativas para dibujar o 
borrar la espiral. 
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3. Columnas aleatorias (1K) 


Este programa imprime un grupo de 50 columnas de 
altura aleatoria y calcula e imprime la altura media 
de todas ellas. 


>? CLEL.T=:0 

19 FOR I = Y TO 49 

2Q LETR = INT(RND* 4f) + 1) 
30 LETT= T+R 

4Y FOR K = Y TOR 

50 PLOT J,K 

60 NEXT K 

70 NEXT J 


84 PAUSE 100 

9) FOR J = Q TO 49 

190 PLOT 3,T1/50 

110 NEXT J 

129 PRINT TAB 5;"MEDIA R =";T/5Q 


Lista de variables 


T Suma de los números aleatorios. 

J,K "Variables de control de bucle. 

R Número aleatorio entre 1 y 40. 
Notas 


Líneas 19 Es una parte del bucle J que genera y to- 
a 30 taliza 50 numeros aleatorios comprendidos 
entre 1 y 40. 


Líneas 4Y Bucle K que dibuja una columna de altura 


a 60 equivalente al valor actual de R. 

Líneas 9) Traza una línea horizontal lo más próxima 

a 119 posible a la altura media de las 50 líneas 
verticales. 


Línea 12Y Se encarga de imprimir la media de los 50 
números aleatorios. 
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4. 


Se 
de la 
cinco 


14 

100 
110 
120 
139 
140 
200 


250 
300 
305 
310 
320 
339 
340 
350 
369 
370 
384 
400 
410 


Lis 


7X81 


Estadística de ventas (1K) 


trata de un histograma de barras representativo 
venta de tuercas y tornillos durante los ultimos 
años. 


DIM S(5,2) 

FOR J = 1 TO 5 

FOR K = 1 TO 2 

LET S(I,K) = INT(RND*11 + 10) 

NEXT K 

NEXT J 

PRINT "VENTAS EN CINCO AÑOS","DE TUERCAS ( ) Y 
TORNILLOS ( )".,, 

PRINT "AÑO", 

FOR'.3:=. 1.10 5 

PRINT 1978 +J3;" "; 

FOR K = 1 TO 29 

IF S(3,1) >= K AND S(3,2) >= K THEN PRINT "4"; 

IF S(3,1) >= K AND S(3,2) < K THEN PRINT "la"; 

IF S(3,2) >= K AND S(3,1)< K THEN PRINT "2"; 

NEXT K 

PRINT 

PRINT 

NEXT J 

PRINT " Y24681111l1l2" (4 espacios) 

PRINT " Q2468Q" (14 espacios) 


ta de variables 


S(5,2) 


I,K 


Tabla de 5x2 con las cifras de venta de 2 
artículos durante 5 años. 


Variables de control de bucle. 


Not 


Líneas 
a 140 


Líneas 
y 360 


as 
100 Generan aleatoriamente un conjunto de ci- 
fras de venta comprendidas entre 10 y 20. 


300 Bucle exterior que tiene a su cargo la ge- 
a 38 neracion de cada uno de los cinco años. 
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Líneas 310 Imprimen una barra en el gráfico corres- 


a 35 


pondiente a un año e incluye un test para 
determinar cuál de los tres posibles blo- 
ques graficos tiene que imprimirse. 


5. Media movil (1K) 


La información de entrada consiste en una serie de 
datos que, por ejemplo, podrían ser cifras mensuales 
de ventas. El programa toma los N últimos datos (usted 
debe fijar el valor de N) y calcula la media y la des- 
viación standard. 


19 
109 
119 
120 
200 
210 
220 
230 
240 
250 
300 
310 
320 
330 
34 
350 
360 
370 
380 
400 
410 
420 


LET K =Q 

PRINT "¿CUANTOS DATOS?" 

INPUT N 

DIM X(N) 

LETK=K+]l 

PRINT "¿SIGUIENTE DATO?"; 

INPUT X(K) 

PRINT X(K) 

IF K < N THEN GOTO 209 

CLS 

LET SX = Q 

LET SS = Q 

PRINT "ULTIMO ";N;" NUMERO", 
FOR J = 1 TON 
LET SX = SX + X(J) 

LET SS = SS + X(J) **2 

PRINT " "+X(3) 
IF I > 1 THEN LET X(J- 1) = X(J) 
NEXT J 


PRINT ¡"MEDIA = ";SX/N 
PRINT ,,"DESV. STD. = ";SQR(SS/N - (SX/N)**2),., 
GOTO 219 


Lista de variables 


Subíndice para el X(n) actual. 


Numero de datos a tomar cada vez. 
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X(N) Tabla de N números. 
SN Suma de los últimos N números. 
SS Suma de los cuadrados de los últimos N nú- 
meros. 
Notas 


Líneas 100 Introduce el número de datos que deben ser 
a 150 promediados cada vez y las dimensiones de 
X(N) que resulten. 


Líneas 20 Bucle INPUT para X(N). Al principio se in- 
a 24 troduce N veces y después solo una vez pa- 
ra cada nuevo calculo. 


Líneas 330 Bucle J que va tomando por orden cada uno 
a 38 de los X(N) números y realiza estas cuatro 
operaciones con ellos: 


1. Los suma (SX). 

2. Suma sus cuadrados (SS). 
3. Los imprime. 
4 


. Con la excepción de X(1), sitúa cada 
número en una posición de la tabla 
de tal manera que X(1) se pierde, 
X(2) se convierte en X(1), X(3) en 
X(2), y así sucesivamente. 


Líneas 40P Calculan e imprimen la media y la desvia- 
a 410 ción standard de los últimos N números. 


Línea 42Q  Retrocede para empezar con un nuevo X(N). 

Evidentemente este programa puede simplificarse y 
servir para el calculo de la desviación standard y la 
media de un conjunto dado de numeros. 


6. Múltiplos (1K) 


Aquí tenemos un programa que imprime en forma de 
cuadro los números comprendidos entre Q y 100 y utili- 
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za la impresión inversa para resaltar los múltiplos de 
cualquier numero que se introduzca. 


1 

20 

30 

100 
119 
200 
210 
224 
230 
240 
250 
260 
270 
280 
290 
300 
500 
519 
520 


PRINT "TECLEE UN NUMERO ENTRE Q Y 99" 
INPUT N 

CLS 

PRINT "LOS MULTIPLOS vu. "3N3" SON" 
IF N = Q THEN LET N = 100 

FOR J = Q TO 9 

FOR K = Q TO 9 

IF J = Q THEN PRINT " "; 

LET M= 10*J+K 

IF INT (M/N)*N = M THEN GOTO 500 
PRINT M¿" "; 

NEXT K 

PRINT 

PRINT 

NEXT J 

GOTO 10 

IF I > Q THEN PRINT CHRS (J + 156); 
PRINT CHRS (K+ 156);" "; 

GOTO 260 


Lista de variables 


J,K 


Número cuyos múltiplos se desea conocer. 
Variables de control de bucle. 


Número actual en el cuadro. 


Notas 


Línea 119 Cambia N por 100 cuando N = Q para evitar 


un error en la línea 240 al dividir por 
cero. Obsérvese que (Q siempre aparece im- 
preso en forma inversa, dado que es múlti- 
plo de cualquier otro número. 


Línea 23Q A partir de J y K genera el número actual 


en el cuadro. 


Línea 24) Verifica el número actual para ver si es 


múltiplo de N. 
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Línea 250 Imprime normalmente los números que no son 
multiplos. 


Líneas 500 Imprime los múltiplos de N en forma inver- 

a 519 sa, partiendo del hecho de que el código 
de un número en impresión inversa es mayor 
en 156 que el propio número. 


7. Descomposición en factores (1K) 


La primera versión de este programa opera por ite- 
ración (repetición de las mismas operaciones una y 
otra vez). Toma un número dado y lo va dividiendo por 
2 hasta que deja de ser divisible, luego empieza a di- 
vidir por 3, etc. Si el número no es divisible por 
ningún otro aparte de por él mismo, lo presenta como 
'número primo'. 


199 PRINT "DESCOMPOSICION DE NUMEROS EN FACTORES" 
119 PRINT "¿CUAL ES EL NUMERO?" 

120 INPUT N 

130 LET NN = N 

140 LET F = 2 

170 PRINT ,,N3" = 1"; 

200 IF N/F <> INT (N/F) THEN GOTO 300 
220 PRINT "X";F; 

230 LET N = N/F 

25 GOTO 200 

300 IF N = 1 THEN GOTO 400 

330 LETF =F+1 

34 "GOTO 290 

400 IF F = NN THEN PRINT "NUMERO PRIMO" 
410 PRINT 

42 PRINT,"ESO ES TODO" 

430 PRINT AT 21,19;"PULSE NEWLINE" 

44( INPUT AS 

45 CLS 

4608 GOTO 109 


Lista de variables 


N Número a descomponer en factores primos. 
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NN Variable ficticia. 
F Factor que se esta probando. 
AS Cadena vacía que se introduce para conti- 


nuar con otro número N. 


Notas 


Línea 139  Asigna N a una variable ficticia NN. 
Línea 149 Selecciona el factor 2 para empezar. 
Línea 20Q Verifica si N es divisible por F. 


Líneas 230 Nes divisible por F, entonces se divide N 
a 250 por F y se vuelve a la línea 200 para se- 
guir probando. 


Línea 300 Comprueba si N ha sido reducido a 1, en 
cuyo caso se cesa de dividir por F. 


Líneas 339 N no es divisible por F, por lo que se in- 
a 340 crementa F en 1 y se vuelve a la línea 200 
para probar otra vez. 


Línea 40Q Si F es igual a NN cuando todos los posi- 
bles factores han sido probados, entonces 
N tiene que ser un número primo. 


El programa anterior trabaja bien pero es desespe- 
rantemente lento (véalo introduciendo 1998 y 1997). 
Esto sucede porque prueba como si fueran primos todo 
un conjunto de números que no lo son. Por ejemplo, se 
podrían descartar todos los números pares mayores que 
2. O también, si tenemos un número primo, no tiene ob- 
jeto tratar de dividir por ningún factor mayor que su 
raíz cuadrada. En consecuencia, vamos a teclear algu- 
nas líneas más que se deducen lógicamente de lo que 
acabamos de decir: 


150 LET S = SOQOR N 

169 LET PF = Y 

200 IF N/F <> INT(N/F) OR NN = 2 THEN GOTO 300 
24 LET PF = 1 

300 IF PF = Q AND F > S OR N= 1 THEN GOTO 400 
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310. .1F PF =.2> THEN-LET-F <= 1 
330. LET F =F3+2 
400 TF PF = Y THEN PRINT " X ";NN;" NUMERO PRIMO" 


Esto ya está mejor, pero aún puede mejorarse mucho 
más. Por ejemplo, pruebe introduciendo 3994, que es el 
doble de un número primo alto. Aprenderá mucho sobre 
programación y sobre números si intenta mejorar lo 
anterior utilizando un diagrama de flujo. 


8. Cambio de base (1K) 


Este programa convierte números de base 10 a base 2 
o viceversa. 


19 LET BS = "BASE 10 NO. =" 

20 LET CS = "BASE 2 NO. =" 

5Q PRINT "CAMBIO DE BASE DE NUMERACION" 
60 PRINT , "¿CAMBIO DESDE QUE BASE?","¿2 0 102" 
70 INPUT T 

89 CLS 

99 IF T= 2 THEN GOTO 600 

110 PRINT 

120 PRINT ,BS; 

130 INPUT T 

140 PRINT T,CS; 

169 FOR J = INT(LN T/LN256*8) TO Q STEP - 1 
179 1F 2**J > T THEN GOTO 210 

180 LET T = T-2*x*J 

199 PRINT "1"; 

200 GOTO 224 

210 PRINT "0"; 

22 NEXT J 

23 GOTO 1109 

600 LETT=0Q 

610 PRINT 

62 PRINT ,CS; 

630 INPUT AS 

640 PRINT AS 

650 FOR J = Q TO LEN AS - 1 

660 LET T = T+ VAL AS (LEN AS - J)*2**J 
67 NEXT J 
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689 PRINT BS;T 
69% GOTO 600 


Lista de variables 


BS, CS 
r 


AS 


Notas 


Línea 9) 
Línea 160 


Línea 170 


Líneas 180 
a 19 


Línea 210 


Líneas 650 
a 670 


Cadenas que se utilizan varias veces. 


1. Elección de la base de partida. 
2. Número en base 10 a convertir. 
3. Resultado de la conversión a base 2. 


Número en base 2 a convertir. 


Bifurcación del programa en función de la 
base seleccionada. 


Inicia el bucle 3 y fija el número de po- 
siciones del número en base 2. 


Verifica si el dígito actual debe ser / o 1. 


Si es 1, modifican la potencia de 2 en la 
expresion asignada a Tl e imprimen "1". 


En otro caso, imprime "f". 


Toman los dígitos del número en base 2 de 
uno en uno, los multiplican por la poten- 
cia de 2 actual y los suman como T. 


Hemos utilizado T como tres variables distintas pa- 
ra economizar memoria. Esto nos ha sido posible porque 
T se redefine en tres lugares diferentes. Naturalmente 
hay más procedimientos para convertir números a dife- 
rentes bases. Ensaáyelos y pruebe con otras bases, es- 
pecialmente con la hexadecimal que tiene singular im- 


portancia. 


9. Dibujos (1K y 16K) 


Este es un programa de 1K que le permitirá utilizar 
aproximadamente 2/3 de la pantalla para hacer dibujos 
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mediante un 
las teclas > 
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pixel gobernado por las cuatro flechas de 
, 6, 7 y 8. Si se pulsa D, el pixel va de- 


jando un trazo continuo tras de sí. Si se presiona R, 


el pixel no 
que va encon 


deja ningún trazo y además borra todo lo 
trando a su paso. 


KEYS = "R" THEN LET FS = INKEYS 


119 IF INKEYS = "D" THEN LET FS = INKEYS 


= "R" THEN UNPLOT X, Y 
KEYS = "5" THEN LET X = X - 1 
KEYS. = "6" THEN LET Y =- Y =1 
22 IF INKEYS = "7" THEN LET Y = Y+1 
230 IF INKEYS = "8" THEN LET X = X +1 


Lista de 


X, Y 
FS 


l tas 
Líneas 100 
a 400 


Líneas 100 
a 110 


Línea 190 


Líneas 200 
a 230 


Líneas 300 
a 330 


> 59 THEN LET X = 50 
< Y THEN LET X = Q 

> 43 THEN LET Y 

< 10 THEN LET Y 
Ny Y 

109 


43 
19 


variables 


Coordenadas del punto PLOT/UNPLOT actual. 


Indica si se esta dibujando o borrando. 


Bucle principal que utiliza INKEYS para 
todas las entradas. 

Fijan la posición de FS en "dibujo" (D) o 
en "borrado" (R). 


UNPLOT que actúa solamente en modo "R". 


Controlan el movimiento del punto PLOT me- 
diante las teclas correspondientes a las 
cuatro flechas de control del cursor. 


Mantienen la posición PLOT dentro de los 
límites del rectángulo definido. 


En el programa para 16K el área de dibujo es algo 
ero por lo demás la primera parte del programa 
igual que antes. Cuando usted haya completado 
su dibujo, pulse Z y todo el contenido del rectángulo 
será cargado por PEEK en una tabla. Y ahora, mediante 
GOTO 2000, puede reproducir el dibujo en la posición 
que desee de la pantalla. Si quiere puede guardar la 


menor, p 
trabaja 


tabla y 
las más 


Añada 


4 
300 
330 
350 
1000 
1920 
1039 
1949 
1950 
1969 
1979 
2000 
2010 
2020 
2030 
2040 
2050 
2060 


Lista 


F 
J,K 
A(80) 


PROGRAMAS PARA EL ZX81 


las líneas 2000 a 20640 con objeto de utilizar- 
adelante. 
estas líneas al programa para 1K. 
DIM A(80) 
1F--X ->.19 THEN LEF-X =.19 
1 Y <:28 THEN. EET Y = 28 


IF INKEYS = "Z" THEN GOTO 1000 


LET-F -= PEEK' 16396 + 256 *PEEK .16397 
FOR -J:=-P. TO: 7 
FOR K = 1 TO 10 


LET A(19*J +K) = PEEK (F + K+ 33*J) 
NEXT Kk 

NEXT 3 

STOP 

PRINT AT 5,10; 

FOR J = Q TO 7 

FOR K = 1 TO 10 

PRINT CHRS A(10*J + K) 
NEXT k 

PRINT TAB 10; 

NEXT 3 


de variables 


Byte inicial del fichero de pantalla. 


Variables de control de bucle. 


Conjunto de códigos numéricos que repre- 
sentan el contenido del área de dibujo. 


Notas 


Línea 35 


Y Orden para salir del bucle principal. 
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Línea 1000 Halla el principio del fichero de pantalla. 


Líneas 1020 Determinan los códigos numéricos que co- 
a 1060 rrespondan al contenido del rectángulo de 
dibujo y los cargan en la tabla A(80Q). 


Líneas 2000 Establecen la nueva posición de impresión 
y 2050 para el dibujo. 


Líneas 2010 Reproducen el contenido del rectángulo de 
a 2060 dibujo en la nueva posición. 


10. Toros y vacas (1K) 


Es una versión sencilla de un antiguo juego que ya 
empezamos en el Ejercicio 25.1. El ZX81 genera un nú- 
mero de cuatro cifras entre 1 y 6 (pueden estar repe- 
tidas) y usted dispone de nueve oportunidades para 
adivinarlo. Tras cada tentativa unas figuras negras 
indican el número de "toros" (cifra y posición correc- 
tas), y otras grises representan las "vacas" (cifras 
correctas en posición equivocada). 


29 DIM N(4) 

109 FOR J = 1 TO 4 

119 LET N(JI) = INT (RND*6 + 1) 

12 NEXT J 

200 FOR X = 1 TO 9 

210 PRINT "ADIVINA EL NUMERO";X;""2"; 
22 INPUT GS 

239 PRINT GS 

300 FOR J = 1 TO 4 

31M IF GS(I) = STRS N(J) THEN GOSUB 1000 
32 NEXT J 


33/ FOR J = 1 TO 4 
34) FOR K = 1 TO 4 
359 IF GS(K) = STRS N(I) THEN GOSUB 1100 


36) NEXT K 

379 LET N(JI) = ABS N(I) 
38 NEXT J 

39) PRINT 

400 NEXT X 

900 STOP 
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1990 PRINT "mm"; 
1910 LET CS(J) = "" 
1929 GOTO 1129 

1190 PRINT "22"; 
1110 LET GS(K) = "" 
1120 LET N(J) = -N(I) 
1130 RETURN 


Lista de 


N(4) 
STLK 
ES 


Notas 


Líneas 100 
a 120 


Líneas 300 
a 320 


Líneas 330 
a 380 


Línea 370 


Líneas 1000 
a 1130 


Líneas 1010 
y 1119 


Línea 1120 


variables 


Cuatro cifras aleatorias entre 1 y 6. 
Variables de control de bucle. 


Dato aventurado por el jugador en su in- 
tento de adivinar el número oculto. 


Generan un número de cuatro cifras que no 


,se revela. 


Verifican los cuatro dígitos introducidos 
por el jugador para ver si son toros. 


Comprueban esas mismas cifras para deter- 
minar las vacas. 


Restablece las cifras del número oculto 
para la proxima tentativa. 


Subrutina que se ocupa del número de toros 
y de vacas. A ella se accede por diferen- 
tes puntos, según se trate de un toro o de 
una vaca. La salida es común. 


Cancelan los dígitos introducidos que han 
resultado ser un toro o una” vaca. 


Cancela un dígito del número oculto cuando 
ha sido adivinado, ya sea como toro o bien 
como vaca. 
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11. Dado electrónico (1K) 


Este programa genera números seudoaleatorios del 
1 al 6 y los convierte en imagenes de las caras de un 
dado corriente. 


10 

100 
120 
140 
200 
210 
220 
230 
240 


RAND 
FOR TS E: TO .9 


PRINT AT J + 6,105" MS" (9 


NEXT J 

LET D = INT (RND*6 + 1) 
GOSUB 1000 + D*100 
INPUT AS 

CLS 

GOTO 100 


11090 PRINT AT 11,14," " 


1110 
1200 
1210 
1220 
1300 
1400 


1410 
1420 
1509 
1519 
1600 


1610 
1629 


IF D = 1 THEN RETURN 
PRINT AT 8,11;" " 
PRINT AT 14,17;" " 
RETURN 

GOTO 1199 

PRINT AT 8,11;" me" 


PRINT AT 14,11;" ME" 
RETURN 

PRINT AT 11,14;" " 
GOTO 1409 

PRINT AT 8,11;" mm " 


PRINT AT 14,113" mu ' 
RETURN 


Lista de variables 


espacios inversos) 


espacio) 


espacio) 
espacio) 


(1 espacio, 5 espacios 
inversos, 1 espacio) 
(igual que en 1400) 


(1 espacio) 


(1 espacio, 2 espacios 
inversos, 1 espacio, 
2 espacios inversos, 
1 espacio) 

(igual que en 1600) 


Variable de control de bucle. 


Número seudoaleatorio entre 1 y 6. 


Cadena vacía para volver a tirar el 


dado. 
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Notas 


Líneas 100 Sirven para dibujar el cuadrado del dado. 
a 140 


Líneas 20 Ceneran un número aleatorio, D, y dirigen 
a 210 al ZX81l a la correspondiente subrutina. 


Líneas 1100 Son seis subrutinas para imprimir puntos 

a 1624 sobre el dado. Forman un conjunto bastante 
complicado de instrucciones GOSUB y RETURN 
pero está concebido para minimizar la ocu- 
pación de RAM. 


12. Velocidad de reacción (1K) 


Si sigue las instrucciones, este programa medirá el 
tiempo que tarda usted en reaccionar y lo imprimirá en 
una escala. de 1 a 60. La precisión no es muy alta, 
pero los resultados son consistentes. 


249 PRINT AT (,0;"¿CUANTO TARDA EN REACCIONAR? ds 
100 PRINT '" PULSE ALGUNA TECLA de 
11M PRINT " CUANDO LA PANTALLA SE BORRE dl 


Utilice letras y espacios en impresión inversa. 


169 PRINT AT 11,1; 

179 FAST 

199 PAUSE RND* 300 + 200 

210 FOR A = Q TO 62 

22 IF INKEYS <> " " THEN GOTO 470 


230 PRINT "8"; (bloque gráfico SHIFT 5) 
240 PRINT ""; (cadena vacía) 

25 NEXT A 

460 IF A = 63 THEN PRINT "LENTO" (inverso) 
470 1IF A = Q THEN PRINT "TRAMPA" (inverso) 
475 SLOW 

49 PRINT 


599 FOR J = Q TO 12 

510 PRINT TAB I*5;3*5; 

520 NEXT J 

539 PRINT TAB 9;"MILISEGUNDOS" 
549 PRINT,TAB 5;"LA MEDIA ES 25" 
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550 PAUSE 200 
560 CLS 
570 GOTO 90 


Lista de variables 


A,J Variables de control de bucle. 


Notas 


Líneas 9) Se encargan de imprimir en negro el enca- 
a 119 bezamiento. 


Líneas 179 Pasan a modo FAST. Luego, tras una pausa 
a 19 aleatoria, borran la pantalla. 


Líneas 22Q Bucle de control de tiempo cuya ejecución 

a 25 dura 1 milisegundo aproximadamente. La lÍ- 
nea 220 provoca la salida del bucle cuando 
se pulsa alguna tecla. 


Línea 479 Comprueba si se ha hecho trampa (presionar 
una tecla antes de que haya comenzado la 
ejecución del bucle de tiempo). 


Líneas 475 Ocasionan la vuelta al modo SLOW e impri- 
a >540 men la escala. 


13. Caja negra (16K) 


Aquí tiene una versión para el ZX81 de un excelente 
juego de mesa, producido por Waddingtons y denominado 
"Caja negra". El tablero consiste en una cuadrícula de 
ocho por ocho con el perímetro numerado de l a 32. Hay 
cuatro átomos escondidos bajo la cuadrícula y usted 
debe hallarlos disparando rayos láser sobre la caja 
desde varias posiciones numeradas. Si alcanza un átomo 
el rayo es absorbido (este caso se representa por *). 
Si hay un átomo en una línea contigua a la del rayo, 
éste rebota en él y finalmente emerge adoptando la 
forma de letras que centellean. Si no hay átomos en 
las proximidades, el rayo va directamente a la caja. 
Tenga en cuenta que el rayo puede rebotar sobre más de 
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un átomo a su paso por la caja. Si el rayo se encuen- 
tra con átomos en las líneas de ambos lados, resulta 
reflejado hacia atrás (esto se representa por un pe- 
queño cuadrado gris). También se produce una reflexión 
si hay un átomo en el borde del tablero junto al punto 
de entrada. 


Se puede adivinar la posición de los átomos, pero 
¡cuidado! hay una penalización de tres disparos por 
cada tentativa fallida. Si se rinde, el ZX81 le mos- 
trará dónde estaban los átomos. 


Resultaría muy pesado explicar todas las reglas del 
juego. No obstante usted las irá captando rapidamente. 
Este es un programa original. Existen otras versiones, 
pero me atrevo a suponer que mis gráficos son mejores 
que la mayoría de los otros. 


5 RAND 
19 DIM A(10,10) 
20 LETS = 37 


30 LETBS:=." n (9 espacios) 
4N LET NS = Y 
50 LET RG = Y 


100 FOR J = Y TO 11 

119 PRINT AT J + 5,9;" me " (12 espacios inversos) 
12 NEXT J 

13M PRINT AT 1/,10;"CAJA NEGRA" (letras inversas) 
18% PRINT AT 21,20;"ESPERE" 

19% PAUSE 200 

200 FAST 

205 CLS 

219 GOSUB 1000 

215 SLOW 

22 GOSUB 1209 

23) GOSUB 3300 

25) PRINT AT (,22;"¿AHORA QUE?";TAB 23;" ";TAB 23; 
un Sm - DISPARO" ; TAB Pee Es '"sTAB CG = PRONOSTI- 
CO"; TAB 24;" '"sTAB 24" '"s TAB eun gm = FIN" 

27) GOSUB 4200 

28% GOSUB 3300 

285 IF IS = "G" THEN GOTO 3600 

29) IF IS = "S" THEN GOTO 305 

295 IF 15 = "E" THEN GOTO 1300 
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300 
305 
310 
420 
430 
490 


500 

510 

520 

530 

540 

550 

560 

99% 

1900 
1910 
1920 
1030 
1940 
1960 
1970 
1980 
199 
1995 
1100 
1119 
1120 
1130 
1140 
1159 
1160 
1170 
1189 
1290 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1300 
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GOTO 259 

LET NS = NS + 1 

PRINT AT 10,25;"DISPARO";TAB 26;"NO.";NS 

LETS. =.5 81 

LET SS = CHRS S 

PRINT AT (,21;"¿DESDE QUE"; TAB 23;"NUMERO"; 
TAB 24;"DISPARA";TAB 26; "USTED?" 


INPUT N 

IF N < 9 THEN GOSUB 1400 

IF N > 8 AND N < 17 THEN GOSUB 2300 
IF N > 16 AND N < 25 THEN GOSUB 2000 
IF N > 24 AND N < 33 THEN GOSUB 1700 
IF N > 32 THEN GOTO 500 

GOTO 240 

STOP 

REM ** DIBUJO DE LA CAJA 

PRINT AT 3,0; 

FOR 3 = 1 TO 16 

PRINT '' MM (3 espacios, 16 inversos) 
NEXT J 


FOR J = 1 TO 8 

PRINT AT Q,2 + 2*J;3 
PRINT AT 1+2*3,21;3 
PRINT AT 20,4;"22 22 
PRINT AT 21,43"4 32 1 
PRINT AT 19 - 2* 3,053 
NEXT J 

FOR J = 6 TO 38 STEP 4 

FOR K = 6 TO 38 

UNPLOT J,k 

UNPLOT Kk,J 

NEXT k 

NEXT 3 

RETURN 

REM*+* POSICIONAMIENTO DE CUATRO ATOMOS 
FOR J = 1 TO 4 

LET X = INT (RND*8 + 2) 

LET Y = INT (RND*8 + 2) 

IF A(X,Y) = 1 THEN GOTO 1220 
LETA(X,Y) = 1 

NEXT 3 

RETURN 

REM*+* IMPRESION DE CUATRO ATOMOS 


8 
1 
9 


+ 
2 
Y 
+ 24 


1310 
1320 
1330 


1340 
1350 
1360 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1475 
1480 


1490 


1500 : 


1514 
1520 
1530 
1544 
1550 
1560 
1570 
1580 
1700 
1710 
1720 
1730 
1749 
1750 
1760 
1770 
1775 
1780 


179 


1800 
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FOR X = 2 TO 9 
FOR Y = 2 is 
IF A(X,Y) = 1 THEN PRINT AT 21 - 2*Y,2*X;"*" 
(* en inverso) 
NEXT Y 
NEXT X 
GOTO 3900 
REM**MOVIMIENTO HACIA EL SUR 
LET X= N+]1 
LET Y = 10 
LEDS 2 
LETC = 2+2*(X- 1) 
PRINT AT L,C;SS$ 


FOR J = 1 TO 30 
NEXT 3 
IF A(X,9) = 1 THEN GOTO 3000 


IF A(X- 1,Y-1) = 1 OR A(X + 1,Y - 1) = 


THEN GOTO 2600 


A A OA A 


THEN GOTO 2600 
IF A(X+1,Y- 1) = : THEN GOTO 2390 
IF A(X- 1,Y- 1) = 1 THEN GOTO 1790 
IF A(X,Y - 1) = 1 THEN GOTO 3000 
IF Y = 2 THEN GOTO 1560 
LEFY = Sl] 
GOTO 1499 
LET 11 =:19 
CET Cl:=:242 8 X= 1) 
GOTO 4000 
REM**MOVIMIENTO HACIA EL ESTE 


LET A. =1 

LET-Y =oN =.23 

LET L = 19-2*(Y-1) 
LETC=-2 


PRINT AT L,C;SS 

FOR 3 = 1 TO 39 

NEXT J 

IF A(2,Y) = 1 THEN GOTO 3000 


IF Á(=LY+1)= 10R40+1v21). 


THEN GOTO 2600 

IF A(X+1,Y+1) = 1 AND A(X + 1,Y - 1) 
THEN GOTO 2600 

IF A(X+1,Y- 1) = 1 THEN GOTO 2099 
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1810 IF A(X+1,Y+1) = 1 THEN GOTO 1490 
1828 IF A(X+1,Y) = 1 THEN GOTO 3000 
1839 IF X = 9 THEN GOTO 1860 

1848$ LET X = X+1 

185 GOTO 1799 

186) LET Ll = 19 - 2* (Y - 1) 

187) LET Cl = 19 

188% GOTO 4000 

2000 REM**MOVIMIENTO HACIA EL NORTE 


2010 LET X = 26-N 

2020 LET Y .< 1 

2030 LET L = 19 

204$ LET CO = 2+2*(X- 1) 


2050 PRINT AT L,C;SS 

2060 FOR J = 1 TO 30 

2070 NEXT J 

2075 IF A(X,2) = 1 THEN GOTO 3000 

2080 IF A(X- 1,Y+1) = 1 OR A(X+1,Y+ 1) = 1 
THEN GOTO 2600 

2099 IF A(X+1,Y+1) = 1 AND A(X - 1,Y +1) = 1 
THEN GOTO 2600 

2100 IF A(X+1,Y+ 1) = 1 THEN GOTO 2390 

2110 IF A(X- 1,Y+1) = 1 THEN GOTO 1799 

212P IF A(X,Y +1) = 1 THEN GOTO 3000 

2130 IF Y = 9 THEN GOTO 2160 

2140 LED Y = Y el 

21508 GOTO 2099 

2160 LET LI =72 

2170 LET C1 = 2+2*(X-1) 

2189 GOTO 4000 

2300 REM**MOVIMIENTO HACIA EL OESTE 


2310 LET Xx = 10 

2320 LET Y = 18-N 

2330 LEFT. L:.= 192 * (Y) 
2340 LET C <= 19 


2350. PRINT. AT. L.,UsS5 

2360 FOR J = 1 TO 30 

237 NEXT J 

2375 IF A(9,Y) = 1 THEN GOTO 3000 

2380 IF A(X- 1,Y+1) = 1 OR A(X - 1,Y-1) = 1 
THEN GOTO 2600 

2390) IF A(X- 1,Y+1) = 1 AND A(X - 1,Y - 1) = 1 
THEN GOTO 2600 


2490 
2410 
2420 
2430 
2444 
2450 
2460 
2470 
248 
2600 
2605 
2610 
2620 
2630 
2649 
2650 
2660 
2670 
2680 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3300 
3310 
3320 
3330 
3340 
3350 
3600 
3610 
3620 
3630 
3635 
3649 
3645 
3650 
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IF A(X- 1,Y+1) 
IF A(X - 1,Y- 1) 


1 THEN GOTO 1490 
1 THEN GOTO 2099 


IF A(X- 1,Y) = 1 THEN GOTO 3000 
IF X = 2 THEN GOTO 2460 

LET X = X-1 

GOTO 2394 

LEFLI. = 19=2*(Y=.1) 

LETEOL =2 

GOTO 4000 

REM** REFLEXION 

FOR 3 = 1 TO 10 

PRINT AT L,C;"" (1 espacio) 
FOR K-==-3L-7072 

NEXT K 

PRINT AT L,C;"Ea" (1 GRAPHICS SHIFT A) 
FORK = L.T10' 3 

NEXT K 

NEXT J 

RETURN 

REM** ABSORCION 

FOR 3 = 1 TO 10 

PRINF- AT L,C" (1 espacio) 
FOR k = 1 TO 2 

NEXT K 

PRINT AT L,C;"*" 

FOR K = 1 TO 3 

NEXT K 

NEXT 3 

RETURN 

REM** BORRADO PANTALLA SUPERIOR DERECHA 
PRINT AT (,21;" " (2 espacios) 
FOR J = Q TO 21 

PRINT AT J,23;BS 

NEXT J 

RETURN 

REM** ADIVINAR UN ATOMO 


PRINT AT (,23;"¿DONDE ESTA";TAB 23;"EL ATOMO?" 
PAUSE 209 

PRINT AT 3,24;"¿CUADROS"; TAB 24;"A LO LARGO?" 
GOSUB 4200 

LET X = VAL 1$ 

IF X > 8 THEN GOTO 3635 

PRINT X 
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3660 PAUSE 59 

367) PRINT AT 6,24;"¿CUADROS"; TAB 25;"ARRIBA?"; 

3675 COSUB 4200 

3680 LET Y = VAL IS 

3685 IF Y > 8 THEN GOTO 3675 

3690) PRINT Y 

3700 IF A(X+1,Y+ 1) = 1 THEN GOTO 3800 

3710 PRINT AT 21 - 2*(Y+1),2*(X+1);"0" (inverso) 

372 PRINT AT 9,20;"AQUI NO HAY";TAB 26;"ATOMO" 

3730 PAUSE 200 

374 PRINT AT 12,20;"PENALIZACION";TAB 22;'"3 DISPAROS" 

3750 LET NS = NS + 3 

3760 PAUSE 200 

3770 GOTO 240 

3800 PRINT AT 21 - 2*(Y + 1),2*(X+1);"*" (inverso) 

3810 PRINT AT 10,24;"MUY BIEN"; TAB 24; "UNO" 

382 PAUSE 300 

3830 LET RG = RG +1 

3840 IF RG = 4 THEN GOTO 4300 

3850 GOTO 240 

3900 REM** INDICACION DE SALIDA 

392 PRINT AT 20,24;"PULSE"; TAB 24;"NEWLINE" 

3925 INPUT CS 

3930 CLS 

394 PRINT AT 5,0; "ESPERO QUE SE HAYA DIVERTIDO", 
TAB 10; "VUELVA CUANDO QUIERA" 

3950 STOP 

4000 REM**CENTELLEO DE LETRAS 

4019 FOR J = 1 TO 19 

4020 PRINT AT L,C;" " (1 espacio) 

4030 PRINT AT L1,C1;" " (1 espacio) 

406f PRINT AT L,C;SS 

4070 PRINT AT L1,C1;5S 

4089 FOR K = 1 TO 3 

4B9P NEXT Kk 

4100 NEXT J 

4119 RETURN 

4200 REM**OBTENCION DE UN INKEYS 

421 IF INKEYS <> " " THEN GOTO 4210 

422 IF INKEYS = " " THEN GOTO 4220 

4230 LET IS = INKEYS 

4240 RETURN 

4300 REM** FELICITACIONES 
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4319 GOSUB 3300 

4329 PRINT AT (,24;"ADIVINO";TAB 24;"TODOS" 
4330 PAUSE 100 

4349 PRINT AT 3,24;"AL";TAB 24;NS;"2"; 


TAB 24;"DISPARO" 


4350 PAUSE 300 
4360 PRINT AT 8,24;"¿JUECA"; TAB 22;"0OTRA VEZ?; 


TAB 25;" "¡TAB 25;"¿S/N?" 


437/ INPUT CS 

4380 IF CS = "S" THEN RUN 

4399 IF CS = "N" THEN GOTO 3930 
4400 GOTO 4370 


Lista de 


A(10,10) 


BS 
NS 
RG 
TK 
IS 
S$ 


LL, Cl 


Lista de 


1099 


variables 

Son los 64 cuadros de que consta la caja 
negra más una línea perimetral invisible. 
Cadena de 9 espacios. 

Número de disparo actual. 

Número de éxitos. 

Variables de control de bucle. 

Valor actual de INKEYS 


Carácter que indica las posiciones de en- 
trada y de salida del rayo. 


Código del carácter anterior. 
Coordenadas. 


Línea y columna del carácter que muestra 
la entrada del rayo. 


Línea y columna del carácter que muestra 
la salida del rayo. 


Cadena input para proseguir con la ejecu- 
ción del programa. 


subrutinas 


Dibuja la cuadrícula y los números que la 
circundan. 
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1299 
1309 


1400 


1700 
2000 
2300 
2600 


3000 


3300 


3600 


3209 
4000 


4200 
4309 


Notas 


7X81 


Sitúa cuatro atomos aleatoriamente. 


Imprime los cuatro átomos de la cuadrícula 
cuando el jugador se rinde. 


Se ocupa del movimiento de los rayos hacia 
el sur. 


Se encarga de los movimientos al este. 
Trata los movimientos hacia el norte. 
Realiza los movimientos al oeste. 


Imprime los caracteres que indican las re- 
flexiones. 


Imprime los caracteres que simbolizan las 
absorciones. 


Borra la parte superior derecha de la pan- 
talla. 


Pide al jugador que trate de adivinar la 
posicion de un atomo y verifica si su pro- 
nostico es correcto. 


Indica el fin de partida y se despide. 


Hace centellear los caracteres que señalan 
las posiciones de entrada y salida del ra- 
yo en la caja. 


Carga en I$ el valor actual de INKEYS. 


Felicita al jugador que ha conseguido adi- 
vinar la posición de los cuatro atomos. 


El "corazón" del programa está constituido por las 
cuatro subrutinas que se encargan de los movimientos y 
que son muy parecidas entre sí. Las notas siguientes 
se refieren a la subrutina que realiza los movimientos 
hacia el este: 


Líneas 1719 Fijan las coordenadas del punto de partida 


a 1720 


del rayo. 
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Líneas 1730 Fijan la posición del carácter que señala 
a 1740 el punto de entrada del rayo. 


Línea 1775 Verifica si existen condiciones para que 
se produzca una absorcion en el borde. 


Línea 1789 Comprueba si debe producirse una reflexión 
en el borde. 


Línea 1790 Determina si tiene que existir una refle- 
xion interna. 


Línea 180Q Verifica si hay un átomo en la línea de 
debajo de la de entrada, hecho que provo- 
caría una reflexión hacia el norte. 


Línea 1819 Comprueba si hay un átomo en la línea de 
encima de la de entrada, lo que ocasiona- 
ría una reflexión hacia el sur. 


Línea 182) Comprueba si hay un átomo en el cuadro si- 
guiente, circunstancia que daría lugar a 
una absorcion. 


Línea 1839 Comprueba si se ha completado la trayecto- 
ria del rayo a través de la caja. 


Líneas 1849 Si el rayo aún no ha salido, incrementan 
a 185) en 1 la coordenada X y hacen que se veri- 
fique todo de nuevo. 


Líneas 186 Fijan la posición del carácter que señala 

a 188 el punto de salida del rayo y remiten a la 
instrucción 4000 para que centelleen los 
caracteres de entrada y salida. 


14. Guía telefónica (16K) 


Este es un ejemplo doméstico de una base de datos. 
Puede almacenar gran número de datos numerados en una 
tabla; en este caso se trata de nombres y números de 
teléfono de 2f caracteres como máximo. Este programa 


jamás debe ser ejecutado por medio del comando RUN, 


puesto que se perderian todos los datos que se hubie- 
ran introducido. Para ejecutarlo utilice siempre GOTO 
1f. Entonces el ZX81 le ofrecerá la posibilidad de es- 
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coger entre listar los datos existentes, introducir un 
dato nuevo, encontrar uno concreto o borrarlo. En las 
tres últimas alternativas, el ZX81l emplea solamente 
los tres primeros caracteres del dato. De este modo, 
"busca Norman" conduciría también a Norton, Norden, 
North, etc. 


Usted puede modificar el programa para que trate 
cualquier otro tipo de información que desee guardar. 
Puede cambiar el número de datos y su longitud. Con 
16K RAM el límite es de unos 650 datos de 2f caracte- 
res cada uno. 


19 DIM NS(100,2P) 

20 LET NS(1PQ) = "FIN" 

30. TET-ES =*" di (20 espacios) 

199 CLS 

110 PRINT "GUIA TELEFONICA", "¿QUE DESEA?",,,, "LISTAR 
TODOS LOS NOMBRES = L”","INTRODUCIR UN 
NOMBRE /NUMERO NUEVO = N", "BUSCAR UN 
NUMERO = F",,'"'BORRAR UN NOMBRE /NUMERO = R" 

12M INPUT Z$ 


139 IF 7S = "N" THEN GOTO 500 
149 IF Z7S = "F" THEN GOTO 200 
150 IF ZS = "R" THEN GOTO 700 
160 IF ZS = "L" THEN GOTO 400 
17H GOTO 120 

200 CLS 

205 PRINT ,,, "¿NOMBRE POR FAVOR?" 
21M INPUT ZS 

215 IF LEN ZS < 3 THEN GOTO 210 
220 LETF =0Q 

230 LET X= 1 

244 CLS : 


259 IF NS(X, TO 3) <> ZS(TO 3) THEN GOTO 309 
260 LETE <= | 

27 PRINT,NS(X) 

300 LET X = X+.1 
3109 IF NS(X, TO 3) <> "FIN" THEN GOTO 259 
320 IF F = Q THEN PRINT ZS;"NO ESTA" 

330 GOTO 1/90 

404 CLS 

41P LET X = Y 


J 


750 
760 


770 
78) 
790 
809 
81) 
859 
860 


87) 
200 
910 
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LET X= X+1 

SCROLL 

PRINT NS(X) 

IF NS(X, TO 3) <> "FIN" THEN GOTO 429 
SCROLL 


GOTO 1999 
CES 
LEFT 1 


IF NS(X, TO 3) = "FIN" THEN GOTO 570 

IF NS(X) = ES THEN GOTO 600 

LET XA =*X1 

GOTO 520 

PRINT,,"LO SIENTO - NO QUEDA ESPACIO" 

GOTO 1000 

CLS 

PRINT "¿NOMBRE/NUMERO NUEVO?" 

INPUT NS(X) 

GOTO 109 

CLS 

PRINT "¿QUE NOMBRE QUIERE BORRAR?" 

INPUT Z5$ 

LET X= 1 

IF NS(X, TO 3) = "FIN" THEN GOTO 8509 

IF NS(X, TO 3) <> ZS(TO 3) THEN GOTO 900 

CLS 

PRINT NS(X) 

PRINT "PRESIONE R PARA BORRAR",,, "O NEWLINE 
PARA EL SIGUIENTE ";ZS(TO 3) 

INPUT RS 

IF RS <> "R" THEN GOTO 900 

PRINT,NS(X) ;" BORRADO" 

LET NS(X) = ES 

GOTO 1000 

CLS 

PRINT,'"NO HAY MAS ";ZS(TO 3);'" NOMBRES EN 
LA GUIA" 

GOTO 1000 

LET X= X+1 

GOTO 735 


190909 PRINT AT 21,13;"PULSE N/L PARA MAS" 
1919 INPUT Z$ 
1929 GOTO 100 
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Lista de 


NS(100, 20) 
AS 
F 


Notas 


Líneas 100 
a 170 


Líneas 200 
a 330 


Líneas 400 
a 470 


Líneas 500 
a 630 


Líneas 700 
a 910 


7X81 


variables 


Tabla de 100 cadenas de 2 caracteres. 
Variables de cadena para INPUT. 


Indicador de si un nombre se ha encontrado 
o no. 


Subíndice actual. 


Imprimen un menú con cuatro alternativas y 
con una ramificacion del programa en cua- 
tro direcciones diferentes. 


Rutina de búsqueda de un nombre o número. 
Dado que sólo se consideran las tres pri- 
meras letras, pueden seleccionar mas de un 
nombre a la vez. 


Hacen desfilar verticalmente la lista de 
los 100 nombres ordenados por subíndices. 


Buscan el primer miembro vacío de la tabla 
y entonces autorizan al usuario a cargar 
en el un nombre nuevo. 


Rutina para borrar un nombre. El usuario 
teclea el nombre que necesita borrar y el 
programa va presentando uno por uno todos 
los nombres cuyas tres primeras letras co- 
rrespondan al nombre dado, con la opción 
de borrar o pasar al siguiente. 


Apéndice 4 


Ejemplos de soluciones 
de los ejercicios 


Hay muchas maneras de escribir un programa. Tenga 
en cuenta que estas soluciones son meros ejemplos que 
utilizan exclusivamente las instrucciones que se han 

. £ . 
aprendido hasta el capitulo correspondiente. Las solu- 
ciones que usted proponga pueden ser otras e igualmen- 
te correctas. 


Ejercicio 6.1 Cambio de línea 


Teclee 15, NEWLINE, 2/0, NEWLINE y luego: 
10 PRINT "TRES LINEAS SE VAN, UNA SE QUEDA" 


Ejercicio 6.2 Su dirección 


Para borrar el programa anterior utilice NEW. 


1900 PRINT "SR. PEDRO GARCIA" 
2000 PRINT "ARCADIO BALAGUER, 13" 
3000 PRINT "CASTELLDEFELS" 

4000 PRINT "BARCELONA" 


Ejercicio 7.1 Expresiones con paréntesis 


(1) Fase 1 7-5=2 30/12 = 2.5 


200 


(2) 


Eje 


19 
20 
30 
46 
50 
60 
79 
100 
119 
120 
130 
140 
159 


Eje 


Fase 
Fase 


Fase 
Fase 
Fase 
Fase 


rcicio 


LCEFR 
LET P 
LET D 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


rcicio 


LET T 
LET A 
LET H 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


FU ne 


T 


H 


7X81 
2*2.5= 5 
5x3 - 125 (solución) 
6*8 =- 48 23=11 = 12 
48 - 12 = 36 SE =.I2 
36/12 = 3 
3x2 - 9 (solución) 
8.1 Cambio de moneda 
= 1.9 
= 75 
= 250 
PXR 
"DOLARES POR" 
p 
yu 
D/R 
"£ SE NECESITAN PARA OBTENER " 
D 
"DOLARES" 
8.2 Paracaidismo 


19 

2.8 
3000 - A*T**2/2 
TIEMPO = " * 


ALTURA = " 


La altura es de 2510 metros después de 1f segundos. 
Si introduce distintos tiempos en la línea 1 verá que 
tras 22 segundos de caída libre la altura es de 628 m. 
Es el momento de abrir el paracaídas. 
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Ejercicio 9.1 Círculos 


19 LETR=5 

209 LETD= 2*R 

30 LETC= 3.14*D 

40 LETA= R**2*3.14 

5Q PRINT " DATOS IMPORTANTES DE UN CIRCULO" 
60 PRINT 

70 PRINT "SI EL RADIO ES";R;" CM" 

89  PRINT 


90 PRINT "DIAM = ";D;" CM", "CIRCUNF = ";Cz" SQCM" 
100 PRINT TAB 8;"AREA = ";A;" SQCM" 


Ejercicio 11.1 Parte decimal 


19 LETN= 17.59 

24 PRINT "NUMERO";TAB 10;"ENT";TAB 2(;"DECIMAL" 
30 PRINT 

40  PRINT N;TAB 10; INT N;TAB 20;N - INTN 


Ejercicio 11.2 Redondeo de decimales 


10 TLETN =:2:7> 
24 PRINT INT (N*10 + .5)/10 


Ejercicio 12.1 Constructora 


2Q LETC = 500 

30. LET Y >.< 1992 

1090 PRINT Y;" CAPITAL + INTERES = £";C 
1109 PRINT 

12) LEVY == Y+l 

130 'LET*C=<. E*L.08 


14M IF Y < 199 THEN GOTO 100 
Si desea redondear, cambie la línea 100 así: 


1090 PRINT Y;" CAPITAL + INTERES = £"; INT (C*100 
+ .5)/100 
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Ejercicio 12.2 ¿Cuáles son los años bisiestos? 


19 LET Y = 1982 

100 PRINT "AÑO" 

110 PRINT Y; 

12) 1F Y/4 = INT (Y/4) THEN PRINT " AÑO BISIESTO"; 
130 LET Y = Y+1 

140 PRINT 

159 IF Y < 2000 THEN GOTO 119 


Ejercicio 14.1 Porcentajes 


19 PRINT "¿SU NOTA?"; 

20 INPUT M 

39 PRINT M,,""'¿MAX NOTA POS?" 
4 INPUT MAX 


5 CLS 

60 PRINT M;" SOBRE "';MAX;" = ";M/MAX* 100; 
" POR CIENTO", 

79 GOTO 19 


Ejercicio 14.2 Consumo de gasolina 


19 PRINT "¿CUANTOS KILOMETROS?" 

20 INPUT M 

30 PRINT M 

40 PRINT "¿LITROS CONSUMIDOS?" 

50 INPUT G 

60 CLS 

7 PRINT G;" LTS EN ";M;" KILOMETROS = ";M/G; 
'" KM/LITRO" 

89 PRINT 

2% GOTO 10 


Ejercicio 16.1 Tabla de raíces cuadradas 


19 PRINT "NUMERO",'"RAIZ CUADRADA" 
2Q PRINT 

100 FOR N = Q TO 16 

119 PRINT N,SOR N 

120 NEXT N 


SOLUCIONES DE LOS EJERCICIOS 


Ejercicio 16.2 Múltiplos 


PRINT "MULTIPLOS DE 4 HASTA 100" 
FOR J = Y TO 100 STEP 4 

PRINT TAB 2*J;3; 

NEXT J 


Ejercicio 17.1 Tabla de multiplicar 


19 
20 
34 
40 
50 
69 


Ejercicio 17.2 Rectángulo 


19 


FOR J = 1 TO 5 
FOR K = 1 TO 19 
PRINT "IM", 
NEXT k 

PRINT 

NEXT J 


FOR J = 1 TO 4 


y añada esta otra: 


60 IF J = 2 THEN PRINT "ESTO ES UN RECTANGULO" 
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i quiere añadir un título, modifique la línea 10: 


Utilice letras en impresión inversa para el título. 


Ejercicio 18.1 Rellenar un formulario 


PRINT "¿SU APELLIDO POR FAVOR?" 
INPUT SS 

PRINT,,""Y AHORA SU NOMBRE" 

INPUT FS 

PRINT,, "EDAD EN AÑOS POR FAVOR" 
INPUT AS 
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79 PRINT, "¿DONDE VIVE?" 

84 INPUT TS 

99 CLS 

100 PRINT "MUCHAS GRACIAS ";FS¿" "5SS 
110 PRINT, "USTED TIENE "¿AS;" AÑOS" 
129 PRINT "Y VIVE EN "¡TS 


Ejercicio 19.1 Elegir números 


19 PRINT "TECLEE UN NUMERO ENTERO ENTRE 1 Y 99" 
20 PRINT " LUEGO PULSE NEWLINE" 

30 INPUT N : 

40 IF N < 1 THEN GOTO 100 

5Q IF N > 99 THEN GOTO 100 

60 IF N <> INT N THEN GOTO 200 

70 GOTO 300 

100 PRINT "NUMERO ENTRE 1 Y 99 POR FAVOR" 
1190 GOTO 30 

200 PRINT "NUMEROS ENTEROS POR FAVOR" 

210 GOTO 30 

309 CLS 

310 PRINT "EL NUMERO ES ";N 

320 PRINT,,, "SU CUADRADO ES ";¿N*N 

330 PRINT,,,,,, "¿OTRO NUMERO?" 

34 GOTO 39 


Con los conocimientos que ha adquirido hasta ahora 
usted no puede evitar que el usuario introduzca letras 
(esto conduciría a un error de código 2/30). Para ello 
tendría que conocer la función VAL que se estudia más 
adelante. 


Ejercicio 20.1 Ruleta 


100 LET S = INT (RND*37) 

119 IF S < 10 THEN PRINT " "; 

12f PRINT S;"  "; (2 espacios) 
1309 GOTO 100 


Este programa incluye un cero. Pienso que esto es 
lo usual. 
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Ejercicio 20.2 Rectángulo aleatorio 


199 LET N 
200 FOR I 
21 FOR K 
22H PRINT 
230 NEXT K 
24 PRINT 
250 NEXT J 
300 PAUSE 509 
310 CLS 

32 GOTO 109 


INT (RND*15 + 1) 

1 TO INT (RND*15 + 1) 

1 TON 

an; (un GRAPHICS SHIFT A) 


Horn 


Ejercicio 21.1 Volumen de un depósito 


19 LETV=Q 

119 PRINT,,,"'¿DE QUE FORMA ES?" 

120 PRINT,"CILINDRICO - TECLEE CIL" 
1309 PRINT" O CUBICO - TECLEE CUBO" 
14 INPUT AS 

159 CLS 

169 IF AS = "CIL" THEN GOSUB 1000 

179 IF AS = "CUBO" THEN GOSUB 2009 
189 IF V <> Q THEN GOTO 300 

194 PRINT "LA FORMA ";AS;" ES DESCONOCIDA" 
200 GOTO 14P 

300 PRINT "VOL DE "¿AS;" = ";V;" CM CUBICOS" 
900 STOP 

1000 REM** VOL DEL CILINDRO 

1010 PRINT "¿ALTURA EN CM?"; 

10920 INPUT H » 

1039 PRINT H,,,, "¿DIAMETRO EN CM?"; 

1940 INPUT D 

10950 PRINT D 

1060 LET V = PI*(D/2)**2*H 

1970 RETURN 

2000 REM ** VOLUMEN DEL CUBO 

20190 PRINT "¿LONGITUD DEL LADO EN CM?" 
2020 INPUT E 

2030 PRINT E 

2040 LETV=E*x*3 

2050 RETURN 
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En la línea 189 utilizamos V para crear un puente 
sobre las líneas 19% y 200 en el caso de que el volu- 
men ya haya sido calculado. 


Ejercicio 22.1 Adivine un número 


20 PRINT "¿CUAL ES MI CODIGO (19 A 99)?","DISPONE 
DE 8 OPORTUNIDADES”, 


199 LET C = INT(RND*9Q + 10) 

130 FOR J = 1 TO 8 

140 PRINT "PRONOSTICO ";3;"2"; 

150 LET CS ="" 

200 FOR K = 1 TO 2 

210) IF INKEYS <> " " THEN GOTO 210 
22) IF INKEYS = " " THEN GOTO 229 


230 PRINT INKEYS; 

24 LET GS = GS + INKEYS 
25 NEXT K 

310 LET G = VAL CS 

320 IF G = C THEN GOTO 500 
330 IF G > C THEN GOTO 370 
34 PRINT " DEMASIADO BAJO" 
359 GOTO 400 

37 PRINT " DEMASIADO ALTO" 
400 NEXT J 

450 PRINT,"ERA ";C 

460 STOP 

500 PRINT " CORRECTO" 

510 PRINT " ADIVINADO EN EL INTENTO NO ";3 


En la línea 150 asignamos la cadena vacía a ES para 
borrar pronosticos anteriores. 


Ejercicio 23.1 Líneas verticales 


199 FOR K = Y TO 43 
110 PLOT Q,K : 

120 PLOT 63,K 

130 NEXT K 


El programa no completará las verticales por insu- 
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ficiencia de memoria (estamos utilizando demasiado es- 
pacio en pantalla). Si reducimos la altura de 43 a 37 
podremos obtener un rectangulo completo. 


Ejercicio 23.2 Tarjeta de visita 


19 FOR J 

2Q FOR K 

30 PLOT I,Kk 

40 NEXT K 

50 NEXT 3 

109 PRINT AT 8,8;"JOHN JONES ESQ.,"; TAB 9;"21 
OXFORD ROAD";TAB 10;"CHISWICK"; TAB 12;"W.4." 
(todo en impresión inversa) 


12 TO 59 
16 TO 30 


En la línea 100 se utiliza PRINT AT 8,8 para fijar 
la posición de impresión en la primera línea. Luego se 
emplea TAB para saltar a las otras líneas. 


Ejercicio 23.3 Subrutina "continuamos" 


190 PRINT "HAGAMOS UNA PAUSA" 

119 GOSUB 10/00 

120 PRINT AT 5,0;"CONTINUEMOS" 

900 STOP 

10900 REM** CONTINUAMOS 

1919 PRINT AT 21,19;"PULSE NEWLINE" 

1929 INPUT AS 

19309 PRINT AT 21,19;" le (13 espacios) 
1949 RETURN 


Ejercicio 24.1 CAM 


10 "BET E <=3 

2Q LETC=Q 

30 PRINT "¿QUE ES UN CAN?" 

40 PAUSE 300 

1099 PRINT AT Q,0;"TECLEE UNA PALABRA " 
(32 posiciones entre letras y espacios) 

119 INPUT WS 
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12 IF LEN WS < 3 THEN GOTO 200 

139 IF WS (1 TO 3) = "CAN" THEN GOTO 300 

140 IF WS (LEN WS - 2 TO LEN WS) = "CAN" THEN GOTO 
300 

209 PRINT AT Q,0;WS;" NO ES CAN" 

2109 GOTO 40 

300 PRINT AT 3,5;"LISTA DE CANS" 

310 PRINT AT L,C;¡WS 

32M LET L = L+SGNC 

33 LET C = 15-C 

34/ GOTO 100 


Notas La línea 12f rechaza las palabras de menos 
de tres caracteres. 


Las líneas 130 y 140 aceptan todas aque- 
llas palabras que empiecen o terminen por 
"can". 


La línea 320 incrementa en 1 alternativa- 
mente el número que determina la línea de 
impresión. 

La línea 330 fija la columna de impresión 
en Y y 15 alternativamente. 


Ejercicio 25.1 Toros y vacas sencillo 


119 LET N(J) = INT (RND*6 + 1) 

12 NEXT J | 

200 PRINT "ADIVINE EL NUMERO","CUATRO CIFRAS 
ENTRE 1 Y 6" 

210 INPUT AS 

220 CLS 

230 PRINT "USTED HA DICHO "¿AS 

300 FOR J = 1 TO 4 

319 IF N(I) = VAL AS(J) THEN LET B = B+1 

320 NEXT J 

400 PRINT,,, "SU PUNTUACION ES DE ";B;" TOROS" 
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En el Apéndice 3 hemos incluido el programa de una 
versión más completa de este divertido juego. No obs- 
es posible que prefiera intentar programarlo 
usted mismo. 


tante, 


Ejercicio 26.1 Calificación de un examen 


19 DIM CS(6,6) 

20 DIM M(6) 

100 LET CS(1) = "SIMON" 

110 LET CS(2) = "MARINA" 
120 LET CS(3) = "GUILLERMO" 
130 LET CS(4) = "EMILIO" 
140 LET CS(5) = "JAIME" 

150 LET CS(6) = "JUANA" 

200 PRINT "¿NOMBRE DEL EXAMEN?"; 
21 INPUT TS 

22 PRINT TS,"NOTA MAXIMA"; 
230 INPUT M 

24 PRINT M 

300 FOR J = 1 TO 6 

31 PRINT CS(I),"¿NOTA?" 
320 INPUT, M(J) 

330 PRINT M(J) 

340 NEXT J 

40H CLS 


41 PRINT "EXAMEN DE ";TS,,,, 

42 PRINT "NOMBRE", "PORCENTAJE", 
430 FOR J = 1 TO 6 

44) PRINT CS(I),M(3)*100/M 


459 NEXT J 


Con objeto de economizar memoria, en este programa 
hemos utilizado dos tablas monodimensionales parale- 
las, una para los nombres y la otra para las califica- 
ciones. Con 1ó6K y en un programa para una clase com- 
pleta, podríamos usar una tabla de cadenas de dos di- 
mensiones, introducir por INPUT las calificaciones co- 
mo si fuesen cadenas y luego emplear VAL para trans- 
formarlas en números. 
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Ejercicio 26.2 Máquina tragaperras 


19 RAND 

20 DIM WS(6,7) 

30 DIM N(3) 

100 LET WS(1) = "CAMPANA" 
119 LET WS(2) = "LIMON" 
120 LET WS(3) = "CORONA" 
130 LET WS(4) = "ANCLA" 
140 LET WS(5) = "CEREZA" 
159 LET WS(6) = "MANZANA" 


200 FOR J = 1 TO 3 

210 LET N(I) = INT (RND*6 + 1) 

22 PRINT AT 10,(3 - 1)*12;WS(N(3)) 
230 NEXT J 

24 IF N(1) <> N(2) THEN GOTO 300 
250 IF N(2) <> N(3) THEN GOTO 300 
260 PRINT AT 18,15;"PREMIO" 

279 STOP 

300 INPUT AS 

314 GOTO 200 


Aquí tenemos una tabla monodimensional de seis ca- 
denas y otra de tres números aleatorios. En la línea 
22 utilizamos uno de los elementos de la segunda ta- 
bla como subíndice de la variable de cadena de la 
otra. Las líneas 24Q y 250 quedarían más elegantes si 
empleáramos un AND lógico, pero esto no se estudia 
hasta el próximo capítulo. 


Ejercicio 27.1 Otra vez el tanque de agua 


AF 


BS cg 
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El agua podrá escaparse únicamente en el caso de 
que el grifo AS permanezca abierto al mismo tiempo que 
BSO: CS 


EJercieto 28.1... Centeéllico 


199 GCOSUB 1/00 

900 STOP 

1900 REM**CENTELLEO 
1919 FOR J = 1 TO 10 


1020 PRINT AT 21,15;" :' (7 espacios) 

1030 FOR K = 1 TO 19 

1040 NEXT K 

105 PRINT AT 21,15;"GANADOR" (letras inversas) 
1060 FOR K = 1 TO 29 

1970 NEXT K 

198 NEXT 3 


199 RETURN 


Ejercicio 28.2 Pelota de goma 


19 LETV=0Q 

2Q LET VV= 1 

199 FOR J = 20 TO 40 

119 PLOT 3,1 

120 NEXT J 

140 FOR X = Q TO 19 

159 PRINT AT V,15;" " 

160 LET V= V+VW 

170 PRINT AT V,15;"Q" 

189 IF V = X OR V = 20 THEN LET VV = - VV 
199 IF V <> 20 THEN GOTO 150 
200 NEXT x 


Ejercicio 28.3 Módulo lunar 


199 FOR L = Q TO 18 

110 PRINT AT L,15;" ";TAB 14;" A ";TAB 
14;"<[S]>"; TAB 14;"| pa 

129 FOR K = Q TO L*2 
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139 NEXT K 
140 NEXT L 


La longitud de todas las cadenas que forman el mó- 
dulo es de tres caracteres, y la S central debe estar 
en impresión inversa. El módulo es un plagio descarado 
del de Lunar Landing , un excelente juego de la serie 
producida en cassettes por Sinclair /ZX Software. 


Las líneas 120 y 130 crean en el bucle principal 
una pausa que se va alargando uniformemente, para que 
la toma de tierra sea razonablemente suave. 


Apéndice 5 


Ampliación de memoria 
a 16K 


Este libro ha sido escrito en su mayor parte para 
los usuarios del Sinclair ZX81 (y en general del ZX80 
con BASIC en 8K ROM) con una memoria standard de 1K 
RAM a disposición del usuario para sus programas, da- 
tos, fichero de pantalla, etc. A medida que mejore su 
técnica de progrmación, verá que necesita disponer de 
una RAM mayor. Sinclair Research Ltd. suministra un 
módulo de expansión que se conecta en la ranura trase- 
ra del /X81 o del /X80 y que extiende la RAM hasta un 
total de 16K. Por un precio apenas superior a los dos 
tercios del del /X81, constituye una excelente inver- 
sión en la situación actual del mercado. 


El ZX81 ampliado permite abordar programas más lar- 
gos (como el Programa 13 del Apéndice 3). También es 
útil para memorizar más datos, que pueden luego guar- 
darse en cinta con el programa y usarlos más adelante 
(Programas 9 y 14 del Apéndice 3). 


El empleo del módulo de memoria de 16K RAM no en- 
cierra dificultad alguna. Simplemente deberá tener la 
precaución de conectarlo antes de enchufar (nunca lo 
conecte o desconecte mientras el /X81l permanece enchu- 
fado). Recuerde que los programas cortos ocupan más 
espacio en cinta cuando al grabarlos se está utilizan- 
do la ampliación de 16K. Es preferible conectar el mó- 
dulo sólo cuando se desee cargarlos de nuevo. 
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ABS, 47, 157 
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Adivine un número*, 104 
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permanentes, 6l 
variables de control 
de, 69 
Buffer, 59 
Bug, 162 
Byte, 6, 141, 162 
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Cassette, 46 
CHR$, 113, 157 
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CODE, 114,157 
Código de información 
19, 148, 162 
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Código -máquina, 162 
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171 
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Comparación, 
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de múmeros, 52 
Comprobación de programas, 
149 
Concatenación de cadenas, 
78 
Constructora*, 54 
Consumo de gasolina*, 61 
CONT, 61.153 
"Continuamos", subrutina*, 
111 
COPY, 65, 111, 156 
COS, 46, 157 


Cursor 
[E]. 15 
[6], 15 
[K)], 13, 42, 53 
lL], 14, 42 
IS], 18 


ss 
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Dados, 92 

Dado electrónico**, 184 

Descomposición en factores** 
176 

Decisión, símbolo de, 57 

Diagramas de flujo, 57, 70, 
88, 89, 131, 162 

Dibujos**, 179 

DIM, 120, 125, 154 

Dirección, 163 


EDIT, 16, 42, 151 

Elegir números*, 86 

Espaciado entre líneas, 22 

Espiral cuadrangular**, 169 

Estadística de ventas**, 
172 

EXP, 46, 157 

Expresión, 25, 45 


FASE, 823,133; 154 

Ficticia, variable, 119 

Formulario, rellenar un, 
¿30 

FOR. 70 
154 

Fragmentación de cadenas, 
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Funciones, 15, 45, 151, 163 


NEXT, 69, 73 


GOSUB, 97, 155 
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Gráficos, 15, 79, 107,-135, 
151 
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Gráficos, bloques, 15, 75, 
151 

Gráficos en movimiento, 135 

Guardar datos, 66 

Guardar programas, 64 

Guía telefónica**, 195 


Hardware, 3, 13, 163 


Impresora, 7, 63, 163 

Indicador de línea (o cur- 
sor de programa), 41 

INKEY$, 101, 157 

INPUT, bucles, 60 

Instrucciones (o senten- 
cias), 17, 154, 156, 

164 

Instrucción condicional, 
10, 52, 162 

INT, 47, 157 

Inversos, caracteres, 15 


LEN, 114, 157 

Lenguaje de alto nivel, 5, 
16 

Lenguaje de bajo nivel, 5, 
161 | 
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Líneas, 108 

Líneas de programa, 
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cambio, 22 
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Líneas verticales*, 108 

LIST, 29, 152 

LLIST, 63, 156 

LN, 46, 157 

LOAD, 65, 153, 163 
LPRINT, 80, 111, 156 


Máquina tragaperras*, 128 
Media móvil **, 173 
Memoria permanente, 5 
Módulo Lunar*, 140 
Múltiplos*, 72 
Múltiplos**, 174 


NEW, 17, 153 

NEWLINE, 17, 19, 152 

NEXT, véase FOR 

NOT, 132, 158 

Numérica, tabla, 120, 164 

Numérica, variable, 31, 165 

Números, 14, 25 

Números seudoaleatorios, 
92, 164 


Operadores aritméticos, 


26, 158 
Operadores relacionales, 
52; 158, 164 


OR, 130, 158 
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Palabras-clave, 13, 162 Redondeo de números, 48 
Paracaidismo*, 35 Redondeo automático, 49 
Paréntesis, 27, 133 REM, 22, 156 

Parte decimal*, 48 Renumeración, 43 

PAUSE, 87. 155 RETURN, 98, 156 

PEEK, 143, 157 RND, 91, 157 

Pelota de goma*, 140 ROM, 6, 142, 164 

PI, 46, 1357 RUBOUT, 21, 152 

Pixel, 107, 163 Ruleta*, 93 

PLOT, 107, 155 RUN, 18, 153, 156 


POKE, 144, 153, 155 
Porcentajes, 61 

PRINT, 18, 22, 31, 153, 155 
PRINT AT 110, 135, 155 


Prioridad, 26, 45, 132, 163 SAVE, 65, 153 
Prioridades lógicas, 132 SCROLL, 51, 156 
sentencias, 131 SGN, 47, 157 
valores, 132, SHIFT, 14, 152 
Proceso, símbolo de, 57 SIN, 46, 157 
Protección de programas, 88 Sintaxis, errores de, 18, 
Puesta a punto de programas, 147, 164 
147 SLOW, 83, 153, 156 
Puntuación, 37, 159 Software, 3, 164 
SQR, 45, 157 
STEP, 71, 156 


STOP, 54, 60, 98, 153, 156 
STR$, 104, 158 
RAM, 6, 143, 164 Subrutinas, 97, 164 
economizar, 148 cuándo se usan, 99 
expansión a 16K, 143, 211 
Ramificación de programas, 


85, 102 
Ramificación aleatoria, 93 
RAND, 91, 156 TAB, 38, 139, 156 
Random access memory, 6, Tabla de multiplicar*, 74 
143, 164 Tabla de raices cuadradas* 
Read only memory, 6, 142, 71 
164 Tablas 
Rebotes, 136 de Cadenas, 125, 164 
Rectángulo*, 76 denominación, 127 
Rectángulo aleatorio*, 93 eliminar miembros, 127 
Rectángulos aleatorios**, multidimensionales, 121 


168 numéricas, 120, 164 
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TAN, 46, 157 

Tanque de agua, otra vez 
el*, 132 

Tarjeta de visita*, 111 

Teclado, 13 

Televisor, 7 

THEN, véase IF 

TO para fragmentar cadenas, 
115, 127 

Toros y vacas**, 182 

Toros y vacas, versión 
simplificada*, 123 

Tortugas, 139 

UNPLOT, 108, 156 

USR, 157 

VAL, 104, 158 

Variable de cadenas, 78, 
164 

Variables, denominación, 32 

Variables ficticias, 119 


Variable numérica, 31, 165 

Velocidad de reacción, 
185 

Volumen de un depósito* 
100 

7X80, 83 

ZX, impresora, 63, 80 

ZX, gráficos con la impre- 
sora, 111 

Y GÁ 42, 151 

£P Y 42, 151 

> 305: .199 

38, 159 

46, 157 

52, 158 

32; 128 

53, 158 

>= 53, 158 

<= 53, 158 

<> 53, 158 
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